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A Pee Ah. 0 
kkk RESIDENT CODE **** 


sSYSTEM CONFIGURATION DEFINITIONS 


- DEF SWPSIZ=$40 ;sDISK SWAP SIZE (16K) 

- DEF SWPLOC=$6000 ;MEMORY APEX WILL SWAP 

- DEF DIRBLK=9 ;DIRECTORY BEGINS HERE 

- DEF MAXFL=48 ;MAX LEGAL NUMBER OF FILES 

- DEF COMPAG=S$B/00 ; COMMUNICATIONS PAGE 

- DEF INPBUF=SA000 ;oCRATCH BUFFER 
;DEFINITIONS OF APPLE. ROM ADDRESSES: 

- DEF MONITR=SFF59 ;ROM MONITOR “RESET” ENTRY 
;S9OME PAGE ZERO POINTERS FOR ANYBODY TO USE: 

- DEF PNTR1=0 

- DEF PNTR2=2 

.- DEF PNTR3=4 


;SOME HARDWARE LOCATIONS IN THE APPLE 
- DEF AS PEAK=S$C030 >THE SPEAKER 


;WHERE THIS MODULE: GOES: 
- DEF HIAD=SBO000 ; ACTUALLY GOES HERE 
- DEF LOAD=$2000 > BUT. IT. LOADS: HERE 
DEF BIAS=HIAD-LOAD 


KKK 


BOOO 
BOO5 
BOO7 
BOOA 
BOOB 
BOOC 
BOOE 
BOOF 
BO15 
BO1D 
BO20 
BO22 
BO2E 


BO31 
BO3C 


BO47 
BO4C 
BO4E 
BO50 


B053 
BO54 
B055 
BO67 
BO73 
BO74 
BO75 


BO/6 
BO/7E 
B088 
BO8B 
BO093 


BO94 
B096 


BO99 


BO9A 


ASM65 *** 


A9 
A9 
8D 
D8 
78 
A2 
9A 
AD 
A9 
20 
BO 
AD 
4C 


oF 
a 


A9 
A9 
A2 
4C 


OD 
OA 
4E 
Dy, 
OD 
OA 
00 


AD 
A9 
20 
68 
60 


A9 
8D 
D8 
78 


FF8D 
FC 
SOBF 


FF 


52BF 
31-65 
76B0 
25 

69BF 
B2BO 


a953 
4352 


008D 
x2 
BO 
FFB1 


4F54 
4542 


3ABF 
008D 
44B2 
8D 3B 


FD 
5OBF 


(V3.0-DS) 


OCT-79 


- PAGE 
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APEX BASIC SYSTEM FUNCTIONS 
KKKKKKKKKKKEKKKKEKKEKKKKEKREE 


- DEF 
- LOC 


HERE=S$BO000 
HERE , HERE-BIAS 


> “RELOAD” THE APEX SYSTEM FROM THE SYSTEM UNIT 


“THAT 1S, 


RELOAD: 


RELI: 


SYSFIL: 
SWPFIL: 


BARF: 


SERMES: 


MOV# 
LDA# 
STA 
CLD 
SEI 
LDX# 
TXS 
MOV 
DMOV# 
JSR 
BCS 
DMOV 
JMP 


eASCII 
~ASCITI 


MOV# 
LDA# 
LDX# 
JMP 


ae Gi ipo 
DYED 
-ASCII 
-ASCIT 
wee TE 
apy PE 
-BYTE 


LOAD THE WHOLE THING 


NO MATTER WHAT 


SFF ,EXECUT >EXEC MODE OFF 
SFC >INDICATE A RELOAD 
SYSENF >SAVE THE INDICATOR 

; SECURITY 

s EQUALLY 
SFF -RESET STACK POINTER 
SYSDEV,UNIT > TRANSFER FROM SYSTEM UNIT 
SYSFIL, PNTR3 ;POINT TO SYSTEM FILE NAME 
FSCANR ;GO FIND THE EXEC CODE. 
BARF *HEY, NONE HERE! 
BLKNO, SYSBLK -FOUND, SO FORM THIS BLOCK 
BOOT -WE GO DO A SYSTEM RELOAD . 
"SYSTEM SYS"  ;EXEC FILE NAME 


VMOORAICH. O05 ;oWAP SPACE FILE NAME 


0,SYSDEV -IF TROUBLE, GO BACK TO UNIT 0 
<SERMES ;SAY WE HAD A BAD SYSTEM UNIT 
>SERMES 

HRDERR ;ITS A HARD ERROR 


415 

hi2 

~NOT CA SYSTEMS DISK = 
“REBOOT: ON 07 

A15 

hLZ 

0 


sLINK TO THE SCAN FUNCTION: 


FSCANR: 


sREENTER THE APEX EXEC, 


RENTER: 


ENTER: 


DPSH 
DMOV# 
JSR 
DPOP 
RTS 


LDA# 
STA 
CLD 
SEI 


INBUFD ;oAVE THE INPUT BUFFER SPEC 
INPBUF, INBUFD som dU OUr WAY 

FSCAN1 ;GO FIND THE FILE 

INBUFD sAND RESTORE HIS BUFFER SPEC 


RELOAD IF NECCESSARY 


SFD J 
SYSENF 


; [INDICATE NON-VALID SWAP AREA 
;SAVE REENTRY STATUS 
;FOR SECURITY 


BO9B 
BO9D 
BOQE 
BOA1 
BOA3 


BOA5. 


BOA/ 
BOAA 
BOAD 
BOBO 


BOB2 
BOB5 


BOB8 
BOBE 


BOCA 
BOCD 
BOD2 


BOD5 
BOD8 


BODB 
BODE 
BOE1 
BOE4 
BOE/ 
BOEA 


BOEB 
BOEE 
BOF 1 
BOF4 
BOF/ 
BOFA 
BOFD 


BOFE 
B106 
B1OE 
B110 
Bib 2 
Bid} 


A2 
9A 
AD 
FO 
GY 
DO 
4C 
20 
AD 
DO 


20 
20 


AD 
AD 


20 
A9 
4C 


20 
4C 


AY 
A9 
AO 
A2 
20 
A9 


Ee 


28BFE 
O07 
a3 
OB 
O3BF 
FEBO 
28BF 
Fl 


DFBF 
EDB2 


S2BF 
53BF 


DBBO 
008D 
O3BF 


DBBO 
59FF 


C4Bl 
EFBIL 
FEBO 
D4B1 
EFBI1 


C4B1 
FEBO 
F5SBl 
FEBO 
D4Bl1 
F5B1 


0085 
0085 
00 
50 
1BBl 
0085 
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LDX# SEF -COS IT MUST NOT BE LOW! 
TxS 
LDA SYBOMB CHECK RESIDENCY FLAG 
BEQ TRYSWP -=Q IF USER DID NOT BOMB APEX 
ENTR2: CMP# $55 >=$55 IF THE PROGRAM IS APEX 
BNE BOOT NEITHER, SO RELOAD APEX 
IMP VSTART s1S APEX, SO. JUST RESTART 17 
TRYSWP: JSR MOVMEM -SWAP BACK SYSTEM PAGE 
LDA SYBOMB CHECK THE NEW RESIDENCY FLAG 
BNE ENTR2 -IF WE CAN, REPEAT THE ABOVE 
*-RESET AND BOOT: 
BOOT: JSR KRESTD ;RESET DISK DRIVES 
JSR OPCON -RESET CONSOLE 
CONTINUE WITH BOOT 
MOV SYSDEV,UNIT ;BOOT IN FROM THE DEFAULT UNIT 
DMOV SYSBLK,BLKNO ;SETUP BLOCK NUMBER 
-"RUN" THE MEMORY IMAGE WHICH BEGINS AT “BLKNO~ 
RUN: JSR GETR -GET IT 
MOV# 0, RERUNF NOT RUN YET 
IMP VSTART ;AND ENTER AT IT“S STARTING ADDR 
-"GET" THE MEMORY IMAGE WHICH BEGINS AT ~“BLKNO7~ 
CET: JSR GETR -GET 17 
IMP MONITR *-BUT DON“T START IT 
-THIS ROUTINE READS IN THE MEMORY IMAGE AT ~BLKNO~ 
CRETE: = sR SET1 >SET UP FOR COMMUNICATION AREA 
JSR READUS sREAD IT 
JSR MOVMEM -MOVE ABOUT 
JSR SET3 >SET UP FOR MAIN MEMORY 
JSR READUS *READ IT 
RTS 


;THIS ROUTINE WRITES THE CURRENT IMAGE BEGINNING AT 


SAVE: JSR SET] hoop ue & 
JSR MOVMEM 
JOR WRITUS 
JSR MOVMEM 
JSR SET3 
JSR WRITUS 
RTS 


;THIS ROUTINE PACKS THE PROGRAM 


-INTO THE "COMMUNICATIONS" PAGE. 
MOVMEM: DMOV#  SYSPAG,PNTRI1 
DMOV# COMPAG,PNTR2 
LDY# 0 
LDX# $50 >FOR 
JSR MOVSWP 
MOV# 0, PNTR1+1 


“BLKNO~ 


UP FOR COMMUNICATION AREA 


-SHUFFLE MEMORY 

-WRITE IT 

SHUFFLE BACK 

-SET UP FOR MAIN MEMORY 
;WRITE IT 


SPECIFIC AREAS OF PAGES $0 & SBF 
ACTUALLY IT SWAPS THEM 


;>FIRST DO LOW PART 
-OF PAGE SBF 
-FROM LOCATION 0 


S30. BYTES 


;DO THE SHUFFLE 
>; THEN HIGH PART 


AY 
60 


BO 
00 


O02 
00 


02 


F2 


52BF 
3C85 
76B0 
03 

47B0 
69BF 
008D 
408D 


-EBBO 


FE 
07B0 


68BF 


69BF 
52BF 
SSBF 
DBBO 
8D6A 


68BF 
17BF 
15BF 
EBBO 
FF 

96B0 


15BF 
17BF 
EBBO 
FO 

96B0 


O08D 
018D 


LDX# 
LDAG@Y 
PHA 
LDAG@Y 
STAG@Y 
PLA 
STAG@Y 
INY 
DEX 
BNE 
RTS 


MOVSWP: 
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256-S$50 ;OF PAGE ZERO 
PNTR1 =\ 
ar 
PNTR2 - : EXCHANGE THE BYTES 
PNTR1 oo 
PNTR2 | 
-POINT TO NEXT ONE 
-COUNT THIS ONE 
MOVSWP ;CONTINUE IF NOT DONE 


;READ IN APEX EXEC BUT WRITE OUT CURRENT IMAGE FIRST. 


SAVER: MOV 
DMOV# 
JSR 
BCC 
JMP 
DMOV 
DMOV# 
MOV# 
JSR 
LDA# 
JMP 


NOBARF: 


SYSDEV,UNIT 
SWPFIL,PNTR3 


;sGET SYSTEM UNIT NUMBER 
;POINT TO SCRATCH FILE NAME 


FSCANR -GO LOOK FOR IT 

NOBARF -DID WE FIND IT? 

BARF HEY, WE DONT HAVE ONE! 
BLKNO , SWPBLK >SAVE BLOCK NUMBER FOR LATER 
SWPLOC,DSKMEM  ;SETUP SWAP PLACE 
SWPSIZ,DSKSIZ  ;SETUP LENGTH 

SAVE *SAVE IT 

SFE INDICATE VALID SCRATCH AREA 
RELI :THEN BOOT IN THE EXEC 


;SAVE CURRENT IMAGE THAT IS WRITTEN IN SCRATCH AREA 


SAVESC: LDA 
PHA 
DPSH 
MOV 
DMOV 
JSR 
DPOP 
PLA 
STA 
MOV 
DMOV 
JSR 
LDA# 
JMP 


UNIT 

;REMEMBER UNIT NUMBER 
BLKNO ;>REMEMBER PLACE TO SAVE IT 
SYSDEV,UNIT soit UP. POINTERS TO--SCRATCH AREA 
SWPBLK,BLKNO 
GETR ;GET THE IMAGE INTO MEMORY 
BLKNO ;GET PLACE TO PUT IT BACK AGAIN 
UNIT ;REMEMBER UNIT 
PROSIZ 5; DSKSIZ ;oETUP THE PROGRAM SIZE 
USRMEM , DSKMEM ;oET ADDRESS OF PROGRAM 
SAVE pOAVES IT 
SFF ; INDICATE WE SAVED AN IMAGE 
ENTER ;sAND ENTER THE EXEC 


;HERE TO SAVE THE PROGRAM CURRENTLY IN MEMORY 


SAVEA: DMOV 
MOV 
JSR 
LDA# 


JMP 


USRMEM,DSKMEM  ;SET THE ADDRESS UP 
PROSIZ,DSKSIZ  ;SET THE SIZE UP 
SAVE -DO IT 

SFO INDICATE WE DID IT 
ENTER AND ENTER THE EXEC 


;ROUTINE TO SETUP TO TRANSFER COMMUNICATION AREA 


DMOV# 
MOV# 
RTS 


SEI i: 


COMPAG, FADDR 
1,NBLKS 


s;SETUP ADDR 
;ONLY ONE BLOCK 
;sAND RETURN 


— 


B1D4 
BIDC 
BlLE8 
BLEE 


BIEF 
B1F2 
B1F4 


BI1F5 
B1F8 
BIFA 


BIFB 
BIFD 


B1IFF 
B201 
B203 
B206 
B208 
B20B 
B20E 
B210 
B212 
B25 
B218 
B21A 
B21D 


B220 


B2Z5 
B222 
B223 
B22E 
B23D 
B23E 
B23F 


EE 
AD 
AD 
60 


20 
BO 
60 


20 
BO 
60 


A9 
A2 


85 
86 
20 
AO 
8C 
AC 
Bl 
FO 
20 
EE 
DO 
20 
4C 


00 


OD 
OA 
44 
52 
OD 
OA 
00 


69BF 
LOBF 
12BF 


E2BF 
07 


ESBF 


Ol 


eal 
B2 


4953 
4554 
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;ROUTINE TO SETUP TO TRANSFER MAIN MEMORY SEGMENT 


SEL. 


DINC 
DMOV 
MOV 
RTS 


BLKNO 


DSKMEM, FADDR 
DSKSIZ,NBLKS 


;POINT TO NEXT BLOCK ON UNIT 


;oETUP INITIAL ADDR POINTER 


;GET SIZE OF TRANSFER 
-AND RETURN 


;ROUTINE TO READ SEQUENTIAL LOGICAL BLOCKS FROM UNIT. 


READUS: 


-ROUTINE TO 


WRITUS: 


WRITER: 


JSR 
BCS 
RTS 


JSR 
BCS 
RTS 


LDA# 
LDX# 


KREAD 
WRITER 


KWRITE 


WRITER 


<DERMES 
>DERMES 


;READ THE BLOCKS 
;BRANCH IF HARD ERROR 
;sRETURN IF NO ERRORS 


WRITE SEQUENTIAL BLOCKS TO UNIT. 


-WRITE THE BLOCK 
;BRANCH IF HARD ERROR 
-RETURN IF NO ERRORS 


;POINT TO ERROR MESSAGE 
;sAND FALL CEASAR 


;HERE WITH A,X POINTING TO APPROPRIATE ERROR MESSAGE. 
;1SSUE THE ERROR MESSAGE ON CONSOLE UNIT AND EXIT 


SDIRECLLY “10 THE SYSTEM: MONITOR. 


HRDERR: 


HMLOOP: 


HMDONE: 


LTEMP: 


DERMES: 


STA 
STX 
JSR 
LDY# 
STY 
LDY 
LDAG@Y 
BEQ 
JSR 
INC 
BNE 
JSR 
JMP 


~-BYTE 


«BYTE 
-BYTE 
-ASCIT 
-ASCIT 
wBYTE 
~-BYTE 
eBYES 


PNTR1 


PNTRI+1 


OPCON 
O 
LTEMP 
LTEMP 
PNTRIL 
HMDONE 
CONOUT 
AD ye 
HMLOOP 
CONIN 
RELOAD 


0 


h15 
h12 


“DISK ERROR=- 


;SAVE ADDR OF MESSAGE 

; INTO A SCRATCH POINTER 

;RESET CONSOLE OUTPUT SEDE 
;POINT TO FIRST CHAR OF MESSAGE 


-GET POINTER TO NEXT CHAR 
:GET CHAR 

-BRANCH IF END OF MESSAGE 
OUTPUT TO CONSOLE 

;sPOINT TO NEXT CHAR 

>AND OUTPUT IT 

-WAIT FOR A KEY STRIKE 
AND TRY A RELOAD 


sADVANCE A LINE 


“RETURN <6: RESET:: 


| 
ey 


On x 


-CODE. TO LOOK UP. A FILE IN THE DIRECTORY.< THIS. ROU INE TARES A 
POINTER: TO: A FILE NAME BY ADDRESS “IN A, Y¥.. “THE NAME MUST BE Tt 
;CHARATERS LONG FILLED WITH BLANKS. NO FUZZY FILE NAMES PLEASE. 
‘THE FILE. NAMES ARE“ 11- BYTES EACH -(C8-—NAME.,5-EXT). THE SIALUS 
sARRAY OF ONE BYTE PER FILE BEGINS AT +528. STATUS=0 IF NULL, 


B240 
B242 
B244 
B250 
B25A 
B25F 


B262 
B26C 
B26F 
B272 
B274 
B2//7 
B279 
B2/B 
B280 
B282 
B284 
B286 
B288 
B28A 
B28C 
B28E 
B290 
B292 
B294 
B295 
B298 
B299 
B29B 
B29E 
B2A0 
B2A2 
B2A4 
B2AA 
B2AD 
B2AF 
B2B2 
B2B3 


B2B4 
B2B/ 
B2BA 
B2BC 
B2BF 
B2Cl 
B2C3 


04 
05 
3ABF 
098D 
038D 
E2BF 


3ABF 
3ABF 
6910 
02 
3BBF 
O02 
03 
308D 
00 
00 
O02 
10 
OE 
00 
04 
08 
OA 
20 


8AB2 


00 
690B 
00 
02 
O1 
O2D0 
ECB2 
03 
82B2 


3ABF 
6940 
00 
3BBF 
02 
Ol 
3ABF 


s<t261F CLOSE, 
cAT +546, 
ge ay 


FSCAN: 


FSCANIL: 


- DEF 
» DEF 
. DEF 


STA 
ay 
DMOV 
DMOV# 
MOV# 
JSR 


>127 IF TENTATIVE THE FIRST BLOCK ARRAY BEGINS 
TWO -BYTES -PER File. 


STATUS=528 
FIRBLK=5/6 
LASBLK=6/72 


PNTR3 
PNTR341 
INBUFD,FADDR 
DIRBLK , BLKNO 
3,NBLKS 
KREAD 
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THE LAST BLOCK ARRAY BEGINS AT 


;OFFSET TO STATUS ARRAY 
SOFFSET TO FIRST BLOCK ARRAY 
;OFFSET TO LAST BLOCK ARRAY 


;POINTER TO NAME 


READ DIRECTORY 
-INTO INPUT BUFFER 
-WE ONLY NEED THREE BLOCKS 


-SO WE SCAN THROUGH THE FILE NAMES LOOKING FOR THE NAME 
-BUT IGNORING FILES WHOSE STATUS IS NOT DO. 

“SETUP NAME POINTER 

-\ 


NEXT: 


toler: 


TRYNXT: 


NOBMP: 


FAILED: 


DMOV 
LDA 
ADD# 
STA 
LDA 
ADC# 
STA 
MOV# 
LDX# 
LDY# 
LDAG@Y 
BEQ 
BMI 
LDAG@Y 
CMP @Y 
BNE 
CPY# 
BEQ 
INY 
JMP 
INX 
LDA 
ADD# 
STA 
BCC 
INC 
DINC 
DEC 
BEQ 
JMP 
SEC 
RTS 


INBUFD, PNTR1 
INBUFD 
<STATUS 
PNTR2 
INBUFD+1 
>STATUS 
PNTR2+41 
MAXFL, FILENO 
0 

0 

PNTR2 

TRYNXT 
TRYNXT 

PNTR1 

PNTR3 

TRYNXT 

10 

MATCH 


TSTLP 


PNTRI 
ink 
PNTR1 
NOBMP 
PNTRIt+1 
PNTR2 
FILENO 
FAILED 
NEXT 


;ILF WE SUCCEED WE COME HERE 


MATCH: 


LDA 
ADD# 
STA 
LDA 
ADC# 
STA 
LDA 


INBUFD 
<FIRBLK 
PNTRL 
INBUFD+1 
>FIRBLK 
PNTR1+1 
INBUFD 


SETUP POINTER 
TO THE STATUS ARRAY 


sRESET FILE COUNTER 
;COUNT FILES 


-IS STATUS>O 

;-NOT VALID IF 0 

7OR IF <O 

>DOES THE NAME MATCH? 


sae NOT. TRY NEXT Price 


;WHEN WE HAVE A MATCH 


-COUNT IT 


;BUMP THE NAME POINTER 
;BY THE SIZE OF ONE NAME 


;BUMP THE STATUS POINTER 


;OEE IF WE HAVE CHECKED ALL FILE 


>IF SO THEN WE HAVE FAILED 
>LOOP BACK FOR NEXT CHECK 
>SHOW WE FAILED 


MAKE A POINTER TO THE 
FIRST BLOCK ARRAY 


B2C6 
B2C9 
B2CB 
B2CE 
B2DO0 
B2D2 
B2D3 
B2D4 
B2D5 
B2D/ 
B2DA 
B2DC 
B2DF 
B2E0 
B2E2 
B2E5 
B2E/ 
B2EA 
B2EB 


B2ZEC 


B2ED 
B2EF 
B2F2 
B2F5 
B2F/ 


B2FA 
B2FC 
B2FF 
B301 


B304 
B306 
B309 
B30B 


B30E 
B3ti 
B314 
B317 
B31A 
Bole 
B31D 


B31E 


18 
85 
AD 
69 
85 
8A 
OA 
A8 
Bl 
8D 
Bl 
8D 
C8 
Bl 
8D 
Bl 
8D 
18 
60 


00 


A2 
8E 
20 
A2 
4C 


A2 
8E 
A2 
4C 


A2 
8E 
A2 
4C 


4C 
4C 
4C 
4C 
A9 
18 
60 


48 


69A0 
O02 
3BBF 
02 
03 


OO 
69BF 
O02 
6EBF 


00 
6ABF 
02 
6FBF 


00 
SCBF 
DOBF 
03 
D9OBF 


00 
5SCBF 
09 
DOBF 


00 
SCBF 
06 
DOBF 


1AB3 
1AB3 
1AB3 
1AB3 
1A 


FILENO: 


>FOR LOCAL USE, 


OPCON: 


CONOUT: 


CONIN: 


sNOW SOME JUNK FOR A NULL DEVICE: 


NULDEV: 


PUNT: 


ADD# 
STA 
LDA 
ADC# 
STA 
TXA 
ASLA 
TAY 


LDAG@Y 


STA 


LDAG@Y 


STA 
INY 


LDAG@Y 


STA 


LDAG@Y 


STA 
CLC 
RTS 


~BYTE 


LDX# 
STX 
JSR 
LDX# 
JMP 


LDX# 
ob Xx 
LDX# 
JMP 


LDX# 
oe wr 
LDX# 
JMP 


JMP 
JMP 
JMP 
JMP 
LDA# 
CLC 
RTS 


<LASBLK 2% 
PNTR2 - AND A POINTER TO THE LAST 
INBUFD+1 BLOCK ARRAY 
>LASBLK ee 
PNTR2+4+1 - / 
-PULL OUT THE BLOCK NUMBERS 
-USING TWICE THE FILE NUMBER 
PNTRI1 -FIRST BLOCK 
BLKNO -SAVE FILE FIRST BLOCK 
PNTR2 -LAST BLOCK 
ENDBLK -SAVE FILE LIMIT BLOCK 
PNTRI1 “DITTO HIGH BYTES 
BLKNO+1 -SAVED IN THE 
PNTR2 >AUXILLIARY LOCATION 
ENDBLK+1 
@) -LOCAL TEMPORARY 


WE DEFINE THESE CONSOLE I/0 FUNCTIONS 


O - CONSOLE -LS..- DEVICE 0 
NOWDEV 
KHAND 
=| 

KHAND 


sOPEN FOR INPUT 
;OPEN FOR OUTPUT 


0 
NOWDEV 
9 
KHAND sOUTPUT TO CONSOLE 
0 

NOWDEV 

6 


KHAND ; INPUT FROM CONSOLE 


PUNT 
PUNT 
PUNT 
PUNT 


oA sGIVE EOF INCASE IT WAS. INPUT 


;ROUTINE TO DISPATCH TO A PARTICULAR FUNCTION AND DEVICE 
>THE. DEVICE. LT. WELL: US#@ IS IN THE. SYSTEM GLOGAL: “NOWDEYV... 
;THE FUNCTION CODE =(DEVICE HANDLER ENTRY OFFSET) IS IN THE 


;X REGISTER. ARGUMENTS, 


HANDY: 


PHA 


IF ANY ARE TRANSFERED IN THE AC & Y. 


;SAVE ARGUMENTS IF ANY 


BIZ1 
B324 
B326 
B328 
E329 
B32A 
B32B 
B32C 
B32D 
B32E 
B32F 
B330 
B333 
B336 
B338 
B33B 
B33E 
B33F 
B340 
B341 


AD 
C9 
90 
68 
68 
38 
60 
OA 
A8 
SA 
18 
79 
8D 
A9 
79 
8D 
68 
A8 
68 
4C 


ICBF 
08 
04 


COBF 
42B3 
00 

C1BF 
43B3 


41B3 


HANDOK: 


HANDV: 


LDA 
CMP# 
BLT 
PLA 
PLA 
SEC 
RTS 
ASLA 
TAY 
TXA 
CLC 
ADCY 
STA 
LDA# 
ADCY 
one 
PLA 
TAY 
PLA 
JMP 


NOWDEV 
8 
HANDOK 


DEVTAB 
HANDV+1 
O 
DEVTAB+t+1 
HANDV+2 


sAND THE DEVICE NUMBER 
;NO MORE THAN 8 DEVICES! 
-CONTINUE IF ITS OK 
REPAIR STACK 


;BAD DEVICE NUMBER 

;BALT, CANT. DO; IFT 

;DEVICE NUMBER TIMES 2 
;WILL BE INDEX INTO TABLE 
;FUNCTION CODE= OFFSET 


;COMPUTE THE ADDRESS 
;OF THE. ROUTINE 
> LHAT DOES THE- JOB 


;GET ARGUMENTS BACK 
-INTO Y REGISTER 
>AND ACCUMULATOR 
AND DISPATCH TO IT 


#AK* 


ASM65 *** 


BEB3 
10 
Ol 
70B3 
09 
AOB3 
3EB4 
Et 


(V340-DSs) 


>DISK DRIVER. 


OCT=79 


- PAGE 


sUSEFUL DEFINITIONS 


- DEF 


COMMANDS TO 


» DEF 
. DEF 
- DEF 


-ERROR CODES 


- DEF 
- DEF 
- DEF 
- DEF 
- DEF 


RWTS=SBD00 


RWTS 
NULL=0 
READO=1 
WRITE=2 
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USES RWTS WHICH MUST RESIDE AT $B800 


SENTRY -POUNT OF. .-RWIS 


; NULL" COMMAND 
; READ" DATA COMMAND 
; WRITE" DATA COMMAND 


THAT MAY BE RETURNED BY THIS ROUTINE 


BADINF=1 
WRTPRT=$10 
VOLMMT=$20 
DRVERR=$40 
RDERR=$80 


BAD INFORMATION WAS PASSED 
sDISKETTE WRITE PROTECTED 
-VOLUME MISMATCH ERROR 
sSTRANGE DRIVE ERROR 

sREAD ERROR 


sROUTINE TO READ SEQUENTIAL BLOCKS FROM DISK. 


ADEVRB: 


RDBNXT: 


RESTD: 
RDBRET: 


JSR 
BCS 
LDA# 
JSR 
BCS 
JK 
DEC 
BNE 
CLC 
RTS 


;ROUTINE TO 


DE VWOB: 


WRBNXT: 


WRBRET: 


JSR 
BCS 
LDA# 
JSR 
BCS 
JSR 
DEC 
BNE 
CLC 
RTS 


-ROUTINE TO 


DOIO: 


STA 
DMOV 
JSR 
LDA# 
LDY# 
JSR 
PHP 
MOV# 


SETUP 
RDBRET 
READO 
DOLO 
RDBRET 
INCADR 
ANBLKS 
RDBNXT 


-SETUP GOODIES 

;BRANCH IF ERROR DURING SETUP 
>INDICATE THAT WE ARE READING 
-DO THE I-0 

-BRANCH IF ERROR 

s ADVANCE POINTERS 

*sMORE BLOCKS TO READ? 

-BRANCH IF YES 

-NO, THEN INDICATE SUCCESS 
sRETURN TO CALLER 


WRITE SEQUENTIAL BLOCKS TO DISK. 


SETUP 
WRBRET 
WRITE 
DOIO 
WRBRET 
INCADR 
ANBLKS 
WRBNXT 


CALL “RWTS" 


IBCMD 

AFADR, IBADDR 
TICKO 

>IOB 

<IOB 

RWTS 


NULL, IBCMD 


-SETUP GOODIES 

>BRANCH IF ERROR DURING SETUP 
INDICATE WE WANT TO WRITE 
>PERFORM THE I-O 

*BRANCH IF ERROR 

-ADVANCE POINTERS 

MORE BLOCKS TO WRITE? 
-BRANCH IF YES 

-NO, INDICATE SUCCESS 

>RETURN TO CALLER 


SUBROUTINE. 


SAVE COMMAND IN IOB 
-COPY CURRENT ADDRESS INTO IOB 
*-MAKE "TICKING" NOISES 
-GET ADDR OF IOB 


;CALL “RWTS” TO DO THE WORK 
;SAVE PROCESSOR STATUS 
;ZAP COMMAND 


B38F 
B39B 
B39E 
B39F 


B3A0 
B3A3 
B3A6 
B3A9 
B3AC 
B3AF 
B3B1 
B3B3 
B3B6 
B3B9 


B3BA 
B3BD 


B3BE 
B3Ci 
| SS, 
B3CF 
B3DB 
B3DE 
B3E1 
B3E3 
B3E4 
B3E6 
B3E9 
B3EA 
B3EC 
B3EF 
B3F4 
B3FA 
B400 
B403 
B405 
B408 
B40B 
B40D 
B410 
B411 
B414 
B417 
B41A 
B41C 
B41F 
B422 


AD 
AD 
28 
60 


EE 
EE 
AD 
AE 
DD 
90 
AY 
8D 
EE 
60 


8D 
60 


20 
BO 
AD 
AD 
AE 
BD 
FO 
48 
29 
8D 
68 


29. 


8D 
A9 
AD 
AD 
AD 
DO 
AD 
DD 
90 
AD 
38 
FD 
8D 
AD 
E9 
8D 
EE 
4C 


54B4 
60B4 


4OB4 
58B4 
58B4 
68BF 
4BB4 
08 

00 

58B4 
57B4 


30C0 


2AB4 
63 

6BBF 
6CBF 
68BF 
43B4 
43 


FO 
54B4 


OF 

55B4 
008D 
69BF 
6ABF 
41B4 
08 

58B4 
4BB4 
18 

58B4 


4BB4 
58B4 
41B4 
00 

41B4 
57B4 
OOB4 


DOIORT: 


-ROUTINE TO 


INCADR: 


INCRET: 


DMOV 
LDA 
PLP 
RTS 


INC 
INC 
LDA 
LDX 
CMPX 
BCC 
LDA# 
STA 
INC 
RTS 


;SUBROUTINE TO 


TICKO: 


STA 
RTS 


IOBSLT,IBPSLT 


IBSTAT 


ADVANCE POINTERS IN 


AFADR+1 
IBSECT 
IBSECT 
UNIT 
NUMSEC 
INCRET 
0 
IBSECT 
IBTRK 
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;sMOVE CURRENT SLOT AND DRIVE ys 
;sGET STATUS CODE IN CASE ERROR eS 
sRESTORE PROCESSOR STATUS 

;AND RETURN TO CALLER 


MEMORY AND ON DISK. 


sADVANCE MEMORY ADDRESS 
;BUMP TO NEXT SECTOR NUMBER 


;DID WE OVERFLOW TO NEXT TRACK? 
;BRANCH IF NOT 
Sino, HEN SET TO. SECTOR ZERO 


-ON NEXT TRACK 
;AND RETURN TO CALLER 


TOGGLE THE SPEAKER IN ORDER TO MAKE A TICKING 
*NOTSE BECAUSE THE DISK=IL IS- TOO QUIET. 


AS PEAK 


-TOGGLE SPEAKER PORT 
>AND RETURN 


SROULINE TO-SETUP “THINGS PRIOR TO DOING 1-0. 


SETUP: 


NEXTRY: 


NOTTRK: 


JSR 
BCS 
DMOV 
DMOV 
LDX 
LDAX 
BEQ 
PHA 
AND# 
STA 
PLA 
AND# 
STA 
MOV# 
MOV 
MOV 
LDA 
BNE 
LDA 
CMPX 
BCC 
LDA 
SEC 
SBCX 
STA 
LDA 
SBC# 
STA 
INC 
IMP 


VALDRV 
SETERR 
NBLKS , ANBLKS 
FADDR,AFADR 
UNIT 

DEVSLT 
SETERR 


SFO 
IOBSLT 


SOF 

ITOBDRV 

0, IBTRK 
BLKNO, IBSECT 
BLKNO+1 , TEMP 
TEMP 

NOTTRK 
IBSECT 
NUMSEC 

GOTIT 

IBSECT 


NUMSEC 
IBSECT 
TEMP 

0 

TEMP 
IBTRK 
NEXTRY 


;IS THIS A PERMITTED UNIT? 

sNO, ERROR 

;LOCAL COPY OF NUMBER OF BLKS 
sLOCAL COPY OF BASE ADDRESS 

:GET UNIT NUMBER 

;CONVERT TO SLOT NUMBER OF CONTR 
sBRANCH IF ERROR, BUM INFO 


;sSAVE FOR “RWTS”" ROUTINE 


sSAVE FOR "RWTS" ROUTINE 

SET TRACK NUMBER TO ZERO 

GET LOW ORDER BLOCK NUMBER 
-STORE HIGH ORDER BLOCK 

;GET HIGH ORDER 

>CAN°T BE DONE IF NON-ZERO 

-GET REMAINDER 

sLESS THAN A TRACK YET? 

s;BRANCH IF YES, THEN WE HAVE IT 
;NO, SO SUBTRACT ONE TRACK SIZE 


sAND ADVANCE TO NEXT TRACK 
sAND CONTINUE 


B425 


B426 
B428 
B429 


B42A 
B42C 
B42F 
B431 
B432 
B433 
B435 
B438 
B43A 
B43B 
B43C 
B43D 


B43E 
B43F 
B441 


B443 
B444 
B445 
B446 
B447 
B448 
B449 
B44A 


B44B 
B44C 
B44D 
B44E 
B44F 
B450 
B451 
B452 


B453 
B454 
B455 
B456 
B457 
B458 
B459 
B45B 
B45D 


Ol 


Ol 
68BF 
04 


FC 
51LBF 
02 


00 
OO 


B4 
00 


GOTLT: 


SETERR: 


VALDRV: 


VALD2: 


VALD1: 


VALD3" 


ANBLKS: 
AFADR: 
TEMP: 


RTS 


LDA# 
SEC 
RTS 


LDA# 
LDX 
BEQ 
ASLA 
DEX 
BNE 
AND 
BNE 
SEC 
RTS 
CLC 
RTS 


~-BYTE 
» WORD 
» WORD 
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-YES, THEN ALL OK 

BADINF s INDICATE BAD INFO 
‘INDICATE FAILURE 
-AND RETURN 

1 -AC WILL BE MASK 

UNIT >GET UNIT NUMBER 

VALD1 -SKIP SHIFT IF UNIT ZERO 
-ELSE SHIFT THE BIT UP 

VALD2 

DEVMSK COMPARE TO PERMIT BYTE 

VALD3 -#0 MEANS THE UNIT IS OK 
sELSE INVALID 

0 sHOLDS NUMBER OF BLOCKS 

0 >BASE ADDR OF TRANSFER 

0 -GENERAL PURPOSE TEMPORARY 


sTHESE TABLES ARE INDEXED BY UNIT NUMBER 


sENIRTHS -TO-DEVSLT ARE * SLOT*S LUTDRIVE 


DEVSET: 


; NUMBER 
NUMSEC: 


STHIS ES -IHE 1-0 CONTROL BLOCK FOR 


LOB: 
TORSL 1: 
ITOBDRV: 


TBUREK: 
IBSECT: 


IBADDR: 


~-BYTE 
~BYTE 
epi it 
«BYTE 
~-BYTE 
~-BYTE 
-BYTE 
~- BYTE 


OF SECTORS PER TRACK 


~-BYTE 
~-BYTE 
2p Ui 
-BYTE 
~-BYTE 
~-BYTE 
- BYTE 
-BYTE 


~-BYTE 
~-BYTE 
~BYTE 
«BYTE 
~-BYTE 
~-BYTE 
»WORD 
-WORD 
»-BYTE 


$61 UNIT O = SLOT 6 DRIVE 1 
$62 -UNIT 1 = SLOT 6 DRIVE 2 
$51 UNIT 2 = SLOT 5 DRIVE 1 
$52 UNIT 3 = SLOT 5 DRIVE 2 
os: sUNIT 4 = SLOT 7 DRIVE 1 
$72 UNIT 5 = SLOT 7 DRIVE 2 
$73 ‘UNIT 6 = SLOT 7 DRIVE 3 
$74 -UNIT 7 = SLOT 7 DRIVE 4 

13 -ORIGINAL APPLE FORMAT USES 
13 -13 PER TRACK FOR DISK ][. 
13 

13 

26 -8" USES 26 PER PSUEDO TRACK 
26 -WHEN ITS A SORRENTO VALLEY 
26 > CONTROLLER. 

26 


CDi coe oy. CoC’ C): €) 


"RWTS" 


SUBROUTINE. 


sTYPE OF IOB (ALWAYS A 1) 


sHOLDS SLOT NUMBER OF DISK CONTR 


;sHOLDS DRIVE NUMBER OF UNIT 


;VOLUME NUMBER (O MATCHES ALL) 


-HOLDS TRACK NUMBER 
sHOLDS SECTOR NUMBER 
-POINTER TO DISK CHARACTER 
-POINTER TO WHERE DATA IS 
> UNUSED 


B45E 
B45F 
B460 
B461 
B462 
B463 
B464 
B465 
B466 


00 
00 
00 
00 
60 
O1 
00 
Ol 
EF D8 


IBCMD: 


LBSTAT? 


IBVOL: 


IBPSLT: 
IBPDRV: 


DEVT: 


»-BYTE 
-BYTE 
~-BYTE 
~-BYTE 
~-BYTE 
~-BYTE 
~-BYTE 
- BYTE 
- WORD 
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; UNUSED 
;HOLDS COMMAND CODE 
;ERROR CODE: IF CARRY IS -SEP 
; VOLUME NUMBER FOUND 
60 ;o9LOT NUMBER OF PREVIOUS ACCESS 
;DRIVE OF PREVIOUS ACCESS 
sDISK “TYPE:-€O -FOR-DISK=1 15 
;NUMBER OF PHASES (=1) 
SD8EF ;TIME COUNT (SD8EF FOR DISK-II) 


KH Orem OO O CO 


® 
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e ‘kK ASM65 *** (V3.0-DS) OCT-79 
: kXXSYSTEM PAGE MODULE FOR APEX*%*% 
***PROGRAM SPECIFIC AREA*** 


-THE FIRST $50 LOCATIONS OF- THIS PAGE: ARE SAVED WITH -THE 
;USER PROGRAM IN PLACE OF THE FIRST $50 LOCATIONS IN PAGE 0 


- DEF HERE=SBFO00 
» LOC HERE, HERE-BIAS 
- DEF SYSPAG=. 


;PROGRAM START AND EXIT VECTORS: 


BFOO 4C OOBF VEST RTS IMP ° ;PROGRAM RESTART VECTOR 

BFO3 4C O3BF VSTART: JMP ° ;PROGRAM START VECTOR 

BFO6 4C DOBF WE OP KRENTR ;PROGRAM NORMAL EXIT ADDRESS 
BFO9 4C D6BF VERROR: JMP KRELOD 3;PROGRAM ERROR EXIT ADDRESS 
BFOC 4C D3BF VABORT: JMP KSAVER ;USER ABORT EXIT ADDRESS 


s INTERNAL USE BY APEX: 


BFOF OO ~BYTE O ;>PARE 

BF10 O00 OO DSKMEM: .WORD 0 ;BASE ADDR OF MEMORY SEGMENT ON DISK 
e BF12 00 DSKS25. . BYTE 0 ;SILZE -OF IMAGE-ON: THE DISK 

BF13 00 OO »WORD 0 ; OPARE 


;PROGRAM MEMORY PARAMETERS: 
BF15 00 OO USRMEM: .WORD 0 ;BASE ADDR OF USER PROGRAM 
BF1/7 00 PROSLZ?- «BYTE 0 sUSER PROGRAM SIZE IN PAGES 


; (LEAVE SPACE HERE FOR MORE USER PROGRAM SEGMENTS ) 


.DEF HERE=SYSPAG+$20 

-L0C HERE , HERE-BIAS 
BF20 00 RERUNF: .BYTE 0 >RERUN FLAG 
BF21 54 4D50 DEXTO: .ASCII "TMP"  ;DEFAULT EXTENSION FOR OUTPUT FILES 
BF24 54 4D50 DEXTI: .ASCII "TMP"  ;DEFAULT EXTENSION FOR INPUT FILES 
BF27 00 DEFAUL: .BYTE 0 >SINGLE BIT DEFAULT FLAGS 
BF28 FF SYBOMB: .BYTE  $FF -SFF IF PROG BOMBS SYSTEM 
BF29 BO USRTOP: .BYTE  §$BO -LAST PAGE+1 FOR USER PROGRAM 
BF2A 00 BYTE 2-0 s SPARE 
BF2B 00 00 .WORD 0 ; SPARE 
BF2D 00 00 .WORD 0 > SPARE 

-I12L PARAMETERS: 

BF2F 00 TSLELGS Bye. 8 -$FF IF PROGRAM USES SYSTEM I2L 
BF30 00 00 T2LBAS: .WORD 0 -START OF PSEUDO CODE FOR SYSTEM I2L 
BF32 00 00 I2LHEP: .WORD 0 >START OF HEAP FOR SYSTEM I2L 
BF34 00 00 WORD 0 * SPARE 


31/0 BUFFERS: (MAY NEED TO BE INTEGRAL PAGES! SEE HANDLER) 
BF36:-00 63 OTBUFD: .WORD $6300 ;BASE OF OUTPUT BUFFER TO USE 


BF38 FF 63 
BF3A 00 60 
BRC fF 62 
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OTBUFE: .WORD S63FF ;END OF OUTPUT BUFFER 
INBUFD: .WORD $6000 ;BASE OF INPUT BUFFER TO USE 
INBUFE: .WORD S62FF sEND OF INPUT BUFFER 


; (LEAVE SPACE HERE FOR MORE INPUT FILE BUFFER SPECS) 


C, 


=% = ee « = = 


**R ASM65 KKK 


-BF50 
BFS1 
BF52 
BF53 


BF55. 


BF57 


BESO” 


BF5A 


BF5C 
 BFSD 
"2 BE SE 


BF68 


BF69 


 ‘BF6B 


-BF6C 
BF6E 


- BF70 


BF72 
BF/4 


 BE75 


7 BiG 


BF7A 
-BF7C 


— BF7D 
Sen 
_ BFTF 


BF78 


FC 


01 
00 


00 
00 


00 


00 
FF 
00 


FF 


00 


00 
00 


00 


00 


00 
00 
00 

00 - 


00 
00 
00 - 
00° 
00 
00 


00 
00 


00 


02 


00's 
00 


O00. 
00 


00 


00 


00 


(V3.0-DS) 


- PAGE 


OGI= 79 


SYSTEM SPECIFIC AREA 


;THE REST OF THIS PAGE IS NOT SAVED BUT RATHER IS BOOTED 


; DURING THE ORIGINAL BOOTUP PROCESS. 
; DURING : 


SYSENF 
DEVMSK: 
SYSDEV: 
SBYSBLE: 
SWPBLK: 
SYSDAT: 


LINIDX: 
NOWDEV: 
EXECUT: 


LOWER: 


NORMAL OPERATION. 


- DEF 


225. DOS 


.BYTE 
BYTE 
.BYTE 


-WORD 


. WORD 
.WORD 
.BYTE 
. WORD 


~-BYTE 

~BYTE 
pare oie a 

~ LOC 


ORONDIOODOOY 


HERE=SYSPAG+$50 © 


HERE , HERE-BIAS 


ho 
es] 
es 


Hey 
es) 


HERE=S YS PAG+S 68 
HERE , HERE-BIAS 


2.0 INFORMATION BLOCK FOR UNIT 


UNIT: 


-BLKNO: 


NBLKS: 
FADDR: 


_ENDBLK: 


SOUTPUTS 
OTLBLK: 
OTHBLK: 


OTFLG: 


-OTNO: 
OTDEV: 


: INPUT 


“INEBLK: 
INHBLK: 
INFLG: 


INNO: 


INDEV: 


sSPACE 


-BYTE 


"BYTE 
-WORD 
-WORD 


ec Ma 


FILE INFORMATION: 


.WORD 


WORD 


«BYTE 


.BYTE 
BYTE 
BYTE 


FILE INFORMATION: 


~-WORD 


-»WORD 
-BYTE 
~BYTE 
~BYTE 


«BYTE 


FOR MORE 


FILES HERE 


> FLAG SHOWING RE- -ENTRY CONDITION 


‘IT REMAINS UNCHANGED 


;MASK SHOWING VALID UNITS | 
sUNIT SYSTEM IS ON = 
>BLOCK SYSTEM FILE IS IN 
sBLOCK SWAP FILE IS IN _ 
;SYSTEM DATE GOES HERE 


73° OCS 


; INPUT LINE POINTER (SFF=NULL) 


Se 


;CURRENT BYTE 1/0 DEVICE 


3:ZERO IF EXEC MODE IS ON 


;LOWER CASE SWITCH (O=UPPER) | 


DRIVERS: ; 
;CURRENT UNIT NUMBER 


;LEAVE SPACE FOR aren 


;CURRENT BLOCK NUMBER 


;NUMBER OF BLOCKS TO TRANSFER ie 


;ADDRESS POINTER 


{AUXILLIARY PARAMETER | 


;FIRST BLOCK OF OUTPUT. FILE 
sLAST BLOCK OF OUTPUT FILE | 
>STATUS FLAGS a 
-DIRECTORY NUMBER OF OUTPUT ‘FILE. 


;UNIT NUMBER WHICH OUTPUT ‘FILE So 


> SPARE 


*PIRST BLOCK OF “INPUT File 
sLAST BLOCK OF INPUT FILE — 
s;STATUS FLAGS 

;DIRECTORY NUMBER OF INPUT FILE 


;UNIT NUMBER WHICH INPUT FILE Is. 


3 9PARE 


-#KA ASM65 *** (V3.0-DS) OCT-79 


. PAGE 


.DEF  HERE=SYSPAG+SCO > 


- LOC HERE , HERE- “BIAS 


- BFCO 
BFC2 
BFC4 


BFC8 
BFCA 
BFCC 


BFCE 


BFDO. 


- BFD3 
 BFD6 


BFD9 
-BFDC 
a BEDE. 

BFE2> 


_BFES 


- 'BFE8 


BFEB 
BFF1 


co” 
80 
00 


OE 
OE 


OE 
OE 


4C 
4C 
4c 
AC 
AC 


4c 


te 


4c 


4C 


B5 
B3 
AD 


B3 


B3 


B3 
B3 


9480 


2AB1 


00OBO | 
TERS. 
‘4OB2 — 


58B3 
4433 


5AB3 


63B1 


CABO. 
‘AABL 
D5BO 


-ANBLKS 
- BARF 
<2 BOOT 


CONOUT 


DEVMSK 
DEVTAB 
a DEXTO. 
DOLORT 
 DanstZ 
ENTR2 
FAILED 


_ FSCAN 
CET 
_ HANDOK 
HERE: - 
_ HMLOOP 
I2LFLG 
-IBCMD — 
IBSECT 
— IBVOL 


- BFA 
B43E 


BO47 


BOB2 | 
B2FA — 
BF51_ 
BFCO 


BF21 


B39F 
BF12 
BOA3. 
-B2B2 
—=B240 
BODS| 
‘B32¢— 
BFCcO.- 
B20B 
BF2F 
B45F 
B458 
B461 


;BYTE I/O DEVICE HANDLER ADDRESS TABLE: 
‘DEVTAB: 


;LINK VECTORS TO RESIDENT CODE: 
KRENTR: 


KREAD: 


_KWRITE: 


;LINKS 
KSAVS: 


_KSAVA: 


KGET: 


-WORD 


_ .WORD 


.WORD 
WORD 


- WORD 
. WORD 


JMP 


2: IMP 
KRELOD: 
- KHAND: 
KSCAN: 
KRESTD: 


JMP 
JMP 
JMP 
JMP 


IMP 


IMP 


FOR APEX EXEC USE: 
SAVESC.. 


JMP 
JMP 


So MP 


JMP 


.END ~ 


ADEVRB 


~ ASPEAK 


_ INBUFD- 


BIAS 


COMPAG — 
_ DEFAUL 


DEVSLT 


DEVWOB 


DIRBLK 


DRVERR 
-ENDBLK 


EXECUT 


FILENO 
FSCANL 


GETR | 
HANDV 


HIAD 
~HRDERR 


I2LHEP 
IBPDRV 
IBSTAT 


$B5C0 


- $B480 
NULDEV 
SADOO 
NULDEV 
NULDEV 


NULDEV 
NULDEV 


RENTER 
SAVER 


RELOAD 


HANDY 


- FSCAN 
-RESTD 


ADEVRB 
DEVWOB 


RUN 


~SAVEA 
GET 


B344 


C030 


9000 
B/700 


BF27 


B443 
B35A 
0009 
0040 


BF6E 


BF 5D 


B2EC 
B244 
-BODB 


B341 


~BOOO 


BiIFF 


BF32 


B463 
B460 


BF3A | 
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-O=LINE aiireeiED CONSOLE. 


ce =CONSOLE DEVICE 


32=PRINTER 


sS32D1SK- FILES 
34=RS232 SERIAL PORT 


_;5=UNUSED 
ibe =UNUSED 


; 7=NULL _ DEVICE 


;BOOT IN APEX (WARM a 
3PRESERVE CURRENT USER IMAGE 
-:RELOAD APEX (COLD START) 

;LINK TO BYTE 1/0 DEVICE 


FILE LOOKUP ROUTINE 
sRESET DISK DRIVER 
sREAD CONTIGUOUS BLOCKS | 


3WRITE CONTIGUOUS BLOCKS 


> SAVE A SWAPPED MEMORY IMAGE 


: RUN A MEMORY IMAGE — 
3SAVE A MEMORY IMAGE 
3GET A MEMORY IMAGE 


AFADR 


- BADINF 
BLKNO 
CONIN 

~DERMES 


DEVT 


DEXTI 
DOIO 


DSKMEM 
ENTER 


-FADDR 
FIRBLK 0% 


FSCANR 
GOTIT 
HANDY 


HMDONE 
F2LBAS: 
IBADDR 
IBPSLT 


IBTRK 


INBUFE 


y 
f 
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Sess yee 


INCADR 
INFLG 
INNO 
IOBDRV 
KHAND 
KRENTR 
KSAVA 
KSCAN 
LINIDX 
LTEMP 
MONITR 
NBLKS 
NOBARF 
NOWDEV 
NUMSEC 
OTBUFE 
OTHBLK 
PNTR1 
PROSIZ 
RDBRET 
READUS 
RENTER 
RUN 
SAVEA 
SERMES 
SETERR 
SWPBLK 
SWPSIZ 
SYSDAT 
SYSFIL 
TICKO 
TSTLP 
USRTOP 
VALD2 
VERROR 
VRSTRT 
WRBRET 
WRITUS 


NO ERRORS DETECTED 


B3A0 
BF/C 
BF/D 
B455 
BFD9 
BFDO 
BFEE 
BFDC 
BF5A 
B220 
FF59 
BF6B 
B140 
BF5C 
B44B 
BF38 
BF/2 
0000 
BF1/ 
B359 
BLEF 
BO94 
BOCA 
BLAA 
BO53 
B426 
BF55 
0040 
BF5/ 
BO31 
B3BA 
B28A 
BF29 
B431 
BFO9 
BFOO 
B36F 
BIF5 


INCRET 
INHBLK 
INPBUF 
IOBSLT 
KREAD 
KRESTD 
KSAVER 
KWRITE 
LOAD 
MATCH 
MOVMEM 
NEXT 
NOBMP 
NULDEV 
OPCON 
OTDEV 
OTLBLK 
PNTR2 
PUNT 
RDERR 
RELI 
RERUNF 
RWTS 
SAVER 
SETL 
SETUP 
SWPFIL 
SYBOMB 
SYSDEV 
SYSPAG 
TRYNXT 
UNIT 
VABORT 
VALD3 
VEXIT 
VSTART 
WRITE 
WRTPRT 


B3B9 
BF/7A 
A0O0O 
B454 
BFE2 
BFDF 
BFD3 
BFE5 
2000 
B2B4 
BOFE 
B282 
B2A4 
B30E 
B2ED 
BF/6 
BF7/0 
0002 
B31A 
0080 
BOO7 
BF20 
BDOO 
B12A 
B1C4 
B3BE 
BO3C 
BF28 
BF 52 
BFOO 
B298 
BF 68 
BFOC 
B43C 
BF 06 
BFO3 
0002 
0010 


INDEV 
INLBLK 
IOB 
KGET 
KRELOD 
KRUN 
KSAVS 
LASBLK 
LOWER 
MAXFL 
MOVSWP 
NEXTRY 
NOTTRK 
NULL 
OTBUFD 
OTFLG 
OTNO 
PNTR3 
RDBNXT 
READO 
RELOAD 
RESTD 
SAVE 
SAVESC 
SEES 
STATUS 
SWPLOC 
SYSBLK 
SYSENF 
TEMP 
TRYSWP 
USRMEM 
VALD1 
VALDRV 
VOLMMT 
WRBNXT 
WRITER 


BF7E 
BF78 
B453 
BFF1 
BFD6 
BFEB 
BFE8 
02A0 
BF5E 
0030 
B11B 
B400 
B40D 
0000 
BF 36 
BF74 
BF75 
0004 
B349 
0001 
BO00 
B358 
BOEB 
B163 
B1D4 
0210 
6000 
BF53 
BF 50 
B441 
BOAA 
BF15 
B435 
B42A 
0020 
B35F 
BIFB 
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4 APEX 


- DEF 
. DEF 
- DEF 
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CONSOLE HANDLER 
HIAD=$B480 ‘ACTUALLY GOES HERE 
LOAD=$2480 -BUT WE LOAD IT HERE 


BIAS=HIAD-LOAD 


;WHERE THE DEVICE HANDLER TABLE IS SO WE CAN PATCH INTO IT: 


- DEF 


DEVTAB=SBFCO 


>SOME SPECIAL CHARATERS: 


-DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 


;ASCII CHARACTERS 


- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
» DEF 


RETYPE=$15 -CTRL-U = RETYPE CHARACTER 
LINDEL=$18 sCTRL-X = DELETE LINE 
KBABOR=$19 ;CTRL-Y = ABORT PROGRAM 
KBEXIT=$3 -CTRL-C = EXIT PROGRAM 
DOBLSH=SF -CRTL-O = GET BACKSLASH 
DOBRAK=S$B >CTRL-K = GET LEFT BRACKET 
HALTER=$13 -CTRL-S = STOP OUTPUT 
CASSHF=$1D >CTRL-SHIFT-M = SHIFT CASE 
EOFCOD=$1A CTRL-Z = END-OF-FILE 
BSPCOD=$8 : BACKS PACE 

CRCOD=SD > RETURN 

LFCOD=SA ‘LINE FEED 

ESCCOD=$1B s ESCAPE 

RUBCHR=$7F : RUBOUT 

TABCOD=$9 >TAB 

FORMCD=SC :-FORM FEED 

BELCOD=$7 > BELL 


;SOME ROM ROUTINES WE NEED 


- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 
- DEF 


ESC1=$FC2C ADDRESS OF ESC PROCESSOR 
CLREOL=$FC9C CLEAR TO END OF LINE 
BELL=$FF3A : HONK 

APPTVO=SFBFD > "VIDOUT” 

APHOME=SFC58 > "HOME" 

APVTAB=$FC22 > "VTAB" 

XKBINP=SFD1B :"KEYIN” 


APBELL=SFBDD ;SNEAK ENTRY TO “BELL” 


;SOME OTHER APPLE LOCATIONS WE NEED TO KNOW ABOUT 


- DEF 
- DEF 
- DEF 
- DEF 


;O9YSTEM GLOBALS 


- DEF 
- DEF 
- DEF 
- DEF 
~» DEF 


IN=$200 -INPUT LINE BUFFER 
BASL=$28 -LINE BASE POINTER 
CH=$24 HORIZONTAL INDEX 
CV=$25 -APPLE VERTICAL POSITION REG 


WE NEED TO KNOW ABOUT 

VABORT=SBFOC sABORT EXIT VECTOR 
VEXIT=SBF06 sNORMAL EXIT VECTOR 
LINIDX=SBF5A ; INPUT LINE INDEX 
EXECUT=SBF5D ;EXEC MODE FLAG 
LOWER=SBF5E ;LOWER CASE FLAG 


*>SOME HARDWARE LOCATIONS IN THE APPLE 
-RESET KEYFLAG 
>KEYBOARD DATA PORT 


- DEF 
- DEF 


XKBRES=$C010 
XKBDAT=$C000 


B480 
B483 
B486 
B489 
B48C 
B48F 
B492 


B495 
B497 
B499 
B49A 
B49C 
B49E 
B4A0 
B4Al 
B4A4 
B4A6 
B4A8 
B4AA 
B4AC 
B4AE 
B4B0 
B4B2 
B4B4 
B4B6 
B4B8 
B4BA 
B4BC 
B4BE 
B4coO 
B4C2 
B4c4 
B4C7 
B4c9 
B4CB 
B4CC 


B4CD 
B4CF 
B4Dl1 
B4D3 


B4D5 
B4D8 
B4DA 
B4DD 


4C 
4C 
4C 
4C 
4C 
4C 
4C 


A4 
Bl 
48 
29 
09 
91 
68 
20 
23 
Co 
FO 
ca 
FO 
Cy 
FO 
co 
FO 
C9 
FO 
C9 
DO 
A9 
C9 
90 
AE 
FO 
09 
18 
60 


AY 
DO 
A9 
DO 


AD 
49 
8D 
4C 


E5B4 
EOB4 
95B4 
1CB5 
E3B4 
79B5 
EFB4 


24 
28 


3F 
40 
28 


1BFD 
7F 
03 
64 
19 
6B 
OF 
1B 
OB 
1B 
1D 
1B 
08 
02 
7F 
40 
07 
5SEBF 
02 
20 


5C 
EF 
5B 
EB 


SEBF 
FF 

SEBF 
95B4 


; ENTRY 
CONOPI: 
CONOPO: 
CONIN: 
CONOUT: 


- SINGLE 


GETKY0O: 


KEYINS: 


KEYRET : 


KEYSAM: 


BSLASH: 


LBRACK: 


SWITCH: 


. DEF XTEXTR=$C051 >SET TEXT MODE LZ 
.LOC HIAD,HIAD-BIAS 
POINTS: 

JMP KEYINI -O=OPEN FOR INPUT 

JMP TVINI -3=OPEN FOR OUTPUT 

JMP GETKYO >6=INPUT 

JMP TVOUT -9=OUTPUT 

JMP CONCLO -12=CLOSE 

JMP CONCUR >15=DIRECT CURSOR SET 

JMP CHKUSR -18=CHECK FOR INTERRUPTS 

CHARACTER KEYBOARD INPUT ROUTINE 

LDY CH ;WE HAVE TO FAKE 

LDA@Y  BASL -THE ROM RDKEY ROUTINE 

PHA -COS WE DONT WANT TO 

AND# $3F -GO THRU $38 AT THIS POINT 

ORA# $40 

STA@Y  BASL *SET SCREEN FLASHING 

PLA 

JSR XKBINP -GET A CHAR, UPDATING HASH COUNT 

AND# S7F >KEEP ONLY 7 BIT ASCII 

CMP # KBEXIT PAT T? | 
BEQ FINEX -BRANCH IF YES J 
CMP # KBABOR - ABORT? 

BEQ SAVEX *>BRANCH IF YES 

CMP # DOBLSH -WANTS A BACKSLASH? 

BEQ BSLASH “VES TURN: TT INTO A> 7X" 

CMP # DOBRAK >WANTS A SQUARE BRACKET? 

BEQ LBRACK YES. TURN IT INTO A F- 

CMP# CASSHF -WANTS TO SHIFT CASE? 

BEQ SWITCH -YES ,GO DO THAT 

CMP# BSPCOD -BACKSPACE (THE LEFT ARROW)? 

BNE KEYRET -BRANCH IF NOT 

LDA# RUBCHR -YES, CHANGE TO RUBOUT 

CMP# $40 > ALPHA? 

BLT KEYSAM -NO LEAVE IT 

LDX LOWER *LOWER CASE ON? 

BEQ KEYSAM -NO LEAVE IT 

ORA# $20 sYES, MAKE LOWER CASE 

Cie > INDICATE SUCCESS 

RTS -AND RETURN 

LDA# =k *-GET A BACKSLASH SINCE WE CAN‘T 

BNE KEYRET *>GENERATE IT DIRECTLY. 

LDA# ee -GET A LEFT BRACKET SINCE 

BNE KEYRET -WE CAN“T GENERATE IT DIRECTLY. 

a 

LDA LOWER -TOGGLE CASE SWITCH . 
EOR# SFF 

STA LOWER -SAVE IT BACK 

JMP GETKYO -AND GO GET ANOTHER KEY 


B4E0 
B4E3 
B4E4 


B4E5 
B4E8 
B4ED 
B4EE 


B4EF 


B4FO 


B4F3 
B4F5 
B4F7 
B4F9 
B4FC 
B4FF 
B501 
B504 
B505 
B506 
B508 
B50A 
B50D 
B50E 


B511 
B513 
Bold 
B518 
BOLY 


BSIC 
B51F 
Bozi 
B523 
BoZ2 
Boz? 
B529 
B52B 
B52D 
B52F 
B531 
B533 
Boo 
B537 
Bas? 


2C 
18 
60 


AD 
A9 
18 
60 


20 
29 
Co 
FO 
C9 
FO 
te, 
FO 
C9 
FO 
Eg 
FO 
Ca 
FO 
Ce 


JLCO 


10C0 
OO08D 


00CO 
OF 
a2 
OD 
10C0 
OO0CO 
FB 
10C0 


83 
O07 
10CO 


O6BF 
no 
EF 
10C0 


OCBF 
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sROUTINE TO INITIALISE THE CONSOLE FOR OUTPUT 


TVINI: 
CONCLO: 


KEYINI: 


BIT 
CLC 
RIS 


LDA 
MOV# 
CLC 
RTS 


XTEXTR 


XKBRES 


0, LOWER 


>SET TEXT MODE, ETC. 
s INDICATE SUCCESS 
-AND RETURN 


;DROP KEY STROBE IF ANY 
sUPPER CASE. 
sALL OK 


sROUTINE TO CHECK TO SEE IF USER TYPED AN ABORT CHAR 


;OR ASKED TO FREEZE OUTPUT. 
;THE REGISTERS. 


CHKUSR: 


KYWAIT: 


CHKURT: 


NOHNG: 


FINEX: 


NOHNGI: 


SAVEX: 


PHA 
LDA 
BPL 
CMP# 
BNE 
LDA 
LDA 
BPL 
LDA 
PLA 
RTS 
CMP# 
BNE 
LDA 
PLA 
JMP 


CMP# 
BNE 
LDA 
PLA 
JuP 


THIS ROUTINE MUST PRESERVE ALL 


IT MAY DESTROY THE PROCESSOR STATUS. 


XKBDAT 
CHKURT 


HALTER+S 80 


NOHNG 

XKBRES 
XKBDAT 
KYWAIT 
XKBRES 


KBEXIT+$80 


NOHNG1 
XKBRES 


VEXIT 


KBABOR+S 80 


CHKURT 
XKBRES 


VABORT 


s.V OUTPUT SUBROUTINE. 
;CALL WITH THE ASCII CHAR TO OUTPUT IN THE ACCUMULATOR 


TVOUT: 


JSR 
AND# 
CMP# 
BEQ 
CMP# 
BEQ 
CMP# 
BEQ 
CMP# 
BEQ 
CMP# 
BEQ 
CMP# 
BEQ 
CMP # 


CHKUSR 
$7F 
TABCOD 
DOTAB 
FORMCD 
DOFORM 
CRCOD 
DOCR 
RUBCHR 
RUBOUT 
LFCOD 
TVNOR 
BELCOD 
TVNOR 
BSPCOD 


SAVE THE ACCUMULATOR CONTENTS 
-KEY STRUCK WHILE WE WERE GONE? 
-BRANCH IF NOT, RETURN 

>YES, WAS IT HALT REQUEST? 
-BRANCH IF NOT 

-YES, EAT THE CHAR 

;AND WAIT FOR ANY KEY 


sEAT THE KEY 

;RESTORE ACCUMULATOR CONTENTS 
;AND RETURN 

; ABORT? 

;BRANCH IF NOT 

“¥EO > BAL THE: GHAR 

;CLEAN UP STACK 

;NO,EXIT NORMALLY 


s ABORT? 

-BRANCH IF NOT, RETURN TO CALLER 
>YES, EAT THE CHAR 

-CLEAN UP STACK 

;AND EXIT THROUGH USER ABORT VEC 


;CHECK FOR USER ABORT 
sFOR SAFETY 

; TAB? 

sYES, FAKE IT 
;FORM FEED? 

sYES.. FAKE IT 
;CARRIAGE RETURN? 
Syi5 TARR. TE 
;RUBOUT CHARACTER? 
SYES.°-PAKE TY 
;LINE FEED? 

<YES > LET Lt PASS 
ae oye a Oa 

SYES., “LEE 22 -A55 
; BACKS PACE? 


B53B 
B53D 
B53F 
B541 
B543 
B545 
B547 
B549 
B54B 
B54D 
B54F 
Boo2 
B553 


B554 
B55/7 
B558 


B559 
B55B 
B55E 
B560 
B562 
B564 
B565 


B566 
B569 
B56B 
B56E 
B5/70 


B5/72 
B75 
B57/ 


B579 
B57B 
B57D 
B57E 
B580 
B583 
B585 
B586 
B588 
B58A 
B58B 
B58D 
B590 
B592 
B595 
B598 
B599 


S41 
61 
04 
60 
OA 
20 
04 
40 
02 
80 
FDFB 


58FC 


3DB5 


DIRIV: 


CHKCTL: 


TVNOR: 
TOTV:: 
NOTV: 


DOFORM: 


DOTAB: 


RUBOUT: 


BACKSP: 


DOCR: 


;TV CURSOR ADDRESSING ROUTINE. 
;CALLED WITH ROW IN ACCUMULATOR, 


CONCUR: 


VEROK: 


HORR: 


HOOK: 


BEQ 
CMP # 
BLT 
EOR# 
BPL 
CMP # 
BCS 
ORA# 
BNE 
EOR# 
JSR 
CLC 
RTS 


JSR 
CLC 
RTS 


LDA# 
JSR 
LDA 
AND# 
BNE 
CLC 
RTS 


JSR 
LDA# 
JSR 
LDA# 
BNE 


JSR 
LDA# 
BEQ 


CMP# 
BCC 
SEC 
SBC# 
JMP 
STA 
Be Gs 
CMP# 
BCC 
SEC 
SBC# 
JMP 
STA 
dow 
JSR 
CLC 
RTS 


BACKSP 
%141 
CHKCTL 
$60 
TOTV 
%40 
TVNOR 
$40 
TOTV 
$80 
APPTVO 


APHOME 


BACKSP 


TVNOR 
BSPCOD 
TVNOR 


CLREOL 
0 
HOOK 


24 
VEROK 


24 
CONCUR 
CV 


40 
HOOK 


40 
HORR 
CH 
CHKUSR 
APVTAB 
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YES, GO HANDLE 

-TEST FOR LOWER CASE ALPHA 
-BRANCH IF NOT 

*-MAKE IT NON-BLINKING 

-BUT INVERSE VIDEO. 

TEST FOR OTHER CONTROL CHARS 
sBRANCH IF NOT A CONTROL CHAR 
sCONTROL CHAR. BLINK IT. 
-AND PLACE IN INVERSE VIDEO. 
NORMAL CHARACTER 

-CALL APPLE ROM TO OUTPUT 

s INDICATE SUCCESS 

>AND RETURN 


>DO APPLE HOME-ERASE 
s INDICATE SUCCESS 
sAND RETURN 


;sGET A SPACE 

G8 Eig 28 5 ee 

; LES L HORLZ POSTTION 
;REACHED TAB STOP YET? 
;BRANCH IF NOT, KEEP SPACING 
;1EO, INDICATE SUCCESS 

;AND RETURN 


;>REMOVE IT WITH BACKSPACE 
; 9 PACE 


; BACKS PACE 
;OUTPUT AND RETURN 


;CLEAR TO END 
;LNDICATE HORIZ POSITION OF ZERO 
;MOVE THERE THEN RETURN 


COLUMN IN Y REGISTER. 


;IS IT WITHIN RANGE? 
sBRANCH IF YES 
;NO, THEN WRAP AROUND 


;SET VERTICAL POSITION 
;GET THE COLUMN NUMBER 
-IS IT ON SCREEN? 

-YES 

>NO, WRAP AROUND 


sSET HORIZONTAL POSITION 
CHECK FOR USER ABORT 
sEXECUTE VTAB ROUTINE 

s INDICATE SUCCESS 

-AND RETURN 


s — 
bad on. 


B5C0 
BoC3 
B5C6 
B5C9 
B5CC 


B5CF 
B5D2 
B5D5 
B5D/7 
B5DC 
B5DD 


B5DE 
B5E1 
B5E3 
B5E5 
B5E6 
B5E9 
BSEC 
BOEE 
B5FO 
B5F2 
B5F4 
B5F6 
B5F8 
B5F9 


B5FA 
B5FC 
B5FF 
B602 


B605 
B608 
B60A 
B60F 
B6l1 
B612 


B613 
B616 


4C 
4C 
4C 
4C 
4C 


20 
AD 
FO 
A9 
18 
60 


AD 
Cy 
FO 
AA 
BD 
EE 
C9 
FO 
C9 
FO 
Dee, 
FO 
18 
60 


A9 
8D 
8D 
4C 


AD 
FO 
A9 
A9 
18 
60 


20 
AY 


CFB5 
83B4 
DEB5 
S9B4 
DCB5 


80B4 
5DBF 
05 

FF8D 


SABF 
FF 
2E 


0002 
5ABF 
1A 
OA 
OD 
¥1 
OA 
E6 


FF 

SDBF 
SABF 
DEB5 


5DBF 
05 
FF 8D 
OD 


1EB6 
O08D 


. DEF 
e LOC 


HERE=SB5CO 


HERE , HERE-BIAS 
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;THIS IS THE LINE BUFFERED CONSOLE HANDLER 


LINCON: 


;OPEN FOR. INPUT, 


OPENLN: 


NULEOP: 


JMP 
JMP 
JMP 
JMP 
JMP 


JSR 
LDA 
BEQ 
MOV# 
CLC 
RTS 


OPENLN 
CONOPO 
GETCH 

CONOUT 
NULLOP 


i.b. PLUSH 2k 


CONOPI 
EXECUT 
NULLOP 
SFF,LINIDX 


;sGET A CHARACTER: 


GETCH: 


LDA 
CMP# 
BEQ 
TAX 
LDAX 
INC 
CMP# 
BEQ 
CMP # 
BEQ 
CMP # 
BEQ 
CLE 
RTS 


LINIDX 
SFF 
NEWLIN 


IN 
LINIDX 
EOFCOD 
ENDFIL 
CRCOD 
ENDLN 
LFCOD 
GETCH 


;OPEN FOR INPUT 
:OPEN. FOR OUTPUT 
sGET A BYTE 
;SEND A BYTE 

; CLOSE 


LINE: 


-OPEN NORMAL CONSOLE 
EXEC MODE? 

-NO FLUSH IF EXEC MODE 
;>FLUSH BUFFER 

“SAY OK 


>PICK UP LINE BUFFER INDEX 
sANY CONTENT? 

;-NO, GO GET SOME 
-YES, GET A BYTE 
-FROM INPUT BUFFER 
-FOR NEXT CHAR 

-END OF FILE? 

- TERMINATE EXEC MODE 
-WAS A RETURN? 

-YES, EMPTY THE LINE 
:-LINE FEED? 

>YES, IGNORE IT 

> SUCESS 

>BACK HOME 


;WHEN WE ENCOUTER AN END-OF-FILE: 


ENDFIL: 


LDA# 
STA 
STA 
JMP 


SFF 
EXECUT 
LINIDX 
GETCH 


-SET EXEC FLAG TO FALSE=$FF 


sSET INPUT LINE EMPTY 
;AND GO GET FROM KEYBOARD 


;WHEN WE ENCOUTER A RETURN CHARACTER 


ENDLN: 


NOEND: 


NEWLIN: 


LDA 
BEQ 
MOV# 
LDA# 
CLC 
RTS 


JSR 
MOV# 


EXECUT 
NOEND 
SFF, LINIDX 
CRCOD 


GETLN 
0, LINIDX 


sCONTINUE IF EXEC MODE 


sNOT EXEC SO FLAG IT EMPTY 
;GIVE CALLER THE RETURN 


GET A LINE 
“RESET POINTER 
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B61B 4C DEB5 JMP GETCH ;BACK IN LINE 


C, 


sNORMAL ENTRY POINT TO -GET A LINE IS HERE: 


B61E A9 OO8D GETLN: MOV# 0, LINIDX -RESET POINTER 
B623 20 8EB6 NXTCHR: JSR RDCHAR -CO READ A CHAR 
B626 C9 15 CMP # RETYPE -IS IT A RETYPE CHAR? 
B628 DO 13 BNE ADDINP -NO, GO ON 
-WAS RETYPE SO WE GOTTA FIX SCREEN TO NORMAL CHAR 
B62A A4 24 LDY CH 
B62C Bl 28 LDA@Y —BASL -YES, PICK UP CHAR FROM SCREEN 
B62E C9 80 cMP# $80 -IS IT NORMAL? 
B630 BO OB BGE ADDINP -YES, FINE 
B632 C9 40 CMP # $40 -WAS IT INVERSE (LOWER CASE) 
B634 BO 05 BGE CTST2 -NO MUST BE A BLINKER (CTRL) 
B636 09 60 ORA# $60 -YES, FORCE NORMAL LOWER CASE 
B638 4C 3DB6 IMP ADDINP -GO INSERT IT 
B63B 29 1F CTST2: AND# SIF -MAKE NORMAL CONTROL CHAR 
-GOT IT, EITHER FOR REAL OR FROM SCREEN 
B63D 29 7F ADDINP: AND# $7F -WE WANT NORMAL ASCII 
B63F AE 5ABF LDX LINIDX -PICK UP THE INDEX 
B642 9D 0002 STAX IN -STUFF CHARACTER INTO BUFFER 
B645 C9 OD CMP # CRCOD -WAS IT’ RETURN? 
B647 DO 04 BNE NOTCR -NO, PROCEED 
B649 20 83B6 JSR CROUT -YES, JUST ECHO THE RETURN 
B64C 60 RTS >AND EXIT e 
B64D 20 68B6 NOTCR: JSR ECHO -ECHO THE CHARACTER 
B650 C9 7F CMP # RUBCHR sWAS IT BACKSPACE? 
B652 FO 24 BEQ BCKSPC “YES, DO THAT 
B654 C9 18 CMP # LINDEL -WAS IT LINE DELETE? 
B656 FO 66 BEQ CANCEL -YES, CANCEL THE LINE 
B658 AE SABF LDX LINIDX -NEAR END OF BUFFER? 
B65B EO F8 cPx# SF 8 -248 TH CHAR? 
B65D 90 03 BLT NOTCR1 :NO, FINE 
JSR BELL -YES, WARN HIM 
NOTCR1: INC LINIDX *>READY FOR NEXT 
JMP NXTCHR 
ECHO: PHA 
CMP # LINDEL -WAS IT LINE CANCEL? 
BEQ ECHO] -DONT ECHO CANCEL 
CMP # RUBCHR ‘WAS IT "RUBOUT"? 
BNE ECHO2 -NO, NORMAL ECHO 
LDA# BSPCOD “YES, DO BACKSPACE 
ECHO2: JSR CONOUT -ECHO IT 
ECHO1: PLA 
RTS 
BCKSPC: LDA LINIDX -GET THE INDEX 
BEOQ GETLNZ -LINE EMPTY? IF SO NEW LINE ee 
DEC LINIDX -DROP BACK ONE PLACE eS 
JMP NXTCHR -BACK FOR MORE 
CROUT: LDA# CRCOD :GET A RETURN 
JSR CONOUT :PUT IT OUT & RETURN TO CALLER 
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B688 A9 OA LDA# LFCOD -ALSO NEEDS A LINE FEED 
B68A 20 89B4 JSR CONOUT >SINCE CONSOLE HANDLER 
B68D 60 RTS -DOES BOTH CORRECTLY 
B68E 20 86B4 RDCHAR: JSR CONIN -GET ONE 

B691 C9 1B CMP # ESCCOD s ESCAPE? 

B693 FO 01 BEQ ESC sYES, GO PROCESS 

B695 60 RTS ;-NO, RETURN IT 

B696 20 86B4 ESC: JSR CONIN *GET ARGUMENT CHARACTER 
B699 20 9FB6 JSR ESCDO -PROCESS IT 

B69C 4C 8EB6 IMP RDCHAR >AND GET ANOTHER CHAR 
B69F C9 4E ESCDO: CMP# “N -CHECK >= N 

B6Al BO 15 BGE ESCOLD YES SO OLD WAY 

B6A3 C9 49 CMP # oF CHECK < I 

B6A5 90 11 BLT ESCOLD -YES SO OLD WAY 

B6A7 C9 4C CMP # =; Set 10 

B6A9 FO OD BEQ ESCOLD YES, DO IT THE OLD WAY 
B6AB A8 TAY sUSE CHAR AS INDEX 

B6AC B9 80B6 LDAY XLTBL-“I -TRANSLATE TO OLD FORM 
B6AF 20 B8B6 JSR ESCOLD >AND DO OLD WAY 

B6B2 20 86B4 JSR CONIN -PICK UP NEXT TRY 

B6B5 4C 9FB6 IMP ESCDO -KEEP THIS MODE 

B6B8 09 80 ESCOLD: ORA# $80 sHARDWARE WIERD WOZNIAK 
B6BA 38 SEC >SOFTWARE WIERD WOZNIAK 
B6BB 4C 2CFC IMP ESCl -GO THRU TO EITHER ROM 
B6BE AQ 5C CANCEL: LDA# a -SHOW WE DROPPED THE LINE 
B6CO 20 89B4 JSR CONOUT 

B6C3 20 83B6 GETLNZ: JSR CROUT ;GIVE RETURN, AND REENTER 
B6C6 4C 1EB6 IMP GETLN 

B6C9 44 METEL SO BYTE << "D 

B6CA 42 EYER 78 

B6CB 41 BYTE AK 

B6CC FF “BYTE. SEF 

B6CD 43 Bere = <2¢ 


sNOW HOOK THE HANDLER INTO THE DEVICE HANDLER TABLE: 
~ LOC DEVTAB, DEVTAB-BIAS 
BFCO CO <BS - WORD LINCON ;BUFFERED CONSOLE = DEVICE 1 
BFC2 80 B4 - WORD CONOPI ;CONSOLE = DEVICE 0 


KKK ASM65 #k* 


APHOME 
BACKSP 
BELCOD 
BSLASH 
CASSHF 
CHKURT 
CONCLO 
CONOPI 
CRCOD 
CV 
DOBLSH 
DOFORM 
ECHO1 
ENDLN 
ESsCl 
ESCOLD 
FORMCD 
GETLN 
HERE 
HORR 
KBEXIT 
KEYRET 
LBRACK 
LINDEL 
LOWER 
NOHNG 
NOTCRI1 
NXTCHR 
RETYPE 
SAVEX 
TOTV 
TVOUT 
VEXIT 
XKBRES 


NO ERRORS DETECTED 


BFC4 
FC58 
B56E 
0007 
B4CD 
001D 
B504 
B4E3 
B480 
OOOD 
0025 
OOOF 
B554 
B6/6 
B605 
FC2C 
B6B8 
OOOC 
B61E 
B5C0 
B586 
0003 
B4CO0 
B4D1 
0018 
BF5E 
B506 
B662 
B623 
0015 
BOL 
B54F 
B51C 
BF06 
C010 


(V3.0-DS) 


OCT=79 
- PAGE 
-» END 
ADDINP B63D 
APPTVO- FBFD 
BASL 0028 
BELL FF3A 
BSPCOD 0008 
CH 0024 
CHKUSR' B4EF 
CONCUR- B5/9 
CONOPO B483 
CROUT B683 
DEVTAB- BFCO 
DOBRAK OOOB 
DOTAB B559 
ECHO2 B673 
EOFCOD OOI1A 
ESCCOD. OO1B 
EXECUT BF5D 
GETCH B5DE 
GETLNZ B6C3 
HIAD B480 
IN 0200 
KEYINI B4E5 
KEYSAM B4CB 
LFCOD OOOA 
LINIDX BF5A 
NEWLIN’ B613 
NOHNGI! B511 
NOTV B552 
OPENLN- B5CF 
RUBCHR OO/7F 
SWITCH B4D5 
TVINI B4E0 
VABORT BFOC 
XKBDAT COOO 
XLTBL B6C9 


APBELL 
APVTAB 
BCKSPC 
BIAS 
CANCEL 
CHKCTL 
CLREOL 
CONIN 
CONOUT 
CTS bz 
DIRTV 
DOCR 
ECHO 
ENDFIL 
ESC 
ESCDO 
FINEX 
GETKYO 
HALTER 
HOOK 
KBABOR 
KEYINS 
KYWAIT 
LINCON 
LOAD 
NOEND 
NOTCR 
NULLOP 
RDCHAR 
RUBOUT 
TABCOD 
TVNOR 
VEROK 
XKBINP 
XTEXTR 


FBDD 
FC22 
B678 
9000 
BO6BE 
B545 
FC9C 
B486 
B489 
B63B 
B53D 
B572 
B668 
BSFA 
B696 
B69F 
B50E 
B495 
0013 
B590 
0019 
B4A1 
B4FC 
B5C0 
2480 
BO60F 
B64D 
B5DC 
B68E 
B566 
0009 
B54D 
B583 
FD1B 
C051 
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ADOO 4C C9AD 
ADO3 4C B9AE 
ADO6 4C 12AD 
-ADO9 4C 1FAE 
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; APEX BYTE I/O TO DISK FILES HANDLER 


sNOTE: THIS HANDLER ASSUMES THAT THE BUFFERS START ON 
;A PAGE BOUNDARY AND ARE AN INTEGRAL NUMBER OF PAGES LONG. 


sDEFINE THE DEVICE NUMBER WE WANT THIS TO BE: 


- DEF 


- DEF 
- DEF 


*EXTERNALS WE 
.DEF 
.DEF 


DEVNO=3 sBY CONVENTION IT SHOULD BE 3 
;DEFINE THE PLACE IN MEMORY WE WANT THIS HANDLER TO GO: 

HIAD=SADOO ;REALLY HERE 

LOAD=$1D00 ;BUT LOADS HERE 

CARE ABOUT SEE SYSTEM PAGE DEFINITION: 

KREAD=SBFE2 ;READ DISK BLOCKS 

KWRITE=SBFE5 sWRITE DISK BLOCKS 

FSCAN=SBFDC ;LOOKUP A FILE 


» DEF 


LOCATIONS IN 
.DEF 
.DEF 
.DEF 
.DEF 


;LOCATIONS IN 
» DEF 
- DEF 
- DEF 
- DEF 
- DEF 


*-LOCATIONS IN 
.DEF 
. DEF 
. DEF 
.DEF 


-LOCATIONS IN 
.DEF 
.DEF 
. DEF 
.DEF 


PROGRAM AREA THAT SPECIFY THE BUFFERS WE MUST USE 


INBUFE=SBF3C s; INPUT BUFFER 
INBUFD=SBF3A 
OTBUFE=SBF 38 ;OUTPUT BUFFER 


OTBUFD=SBF 36 


THE SYSTEM AREA THAT CARRY READ/WRITE PARAMETERS 


UNIT=SBF68 -UNIT TO DO XFER TO/FROM 
BLKNO=SBF69 :BLOCK NUMBER TO START XFER 
NBLKS=SBF6B -NUMBER OF BLOCKS TO XFER 
FADDR=S$BF6C *-MEMORY ADDRESS TO XFER TO/FROM 
ENDBLK=SBF6E -LAST BLOCK OF FOUND FILE 
THE SYSTEM AREA THAT SPECIFY THE INPUT FILE 
INLBLK=SBF78 >FIRST BLOCK 
INHBLK=SBF7A LAST BLOCK 
INFLG=SBF7C -STATUS 
INDEV=SBF7E -UNIT IT IS ON 
THE SYSTEM AREA THAT SPECIFY THE OUTPUT FILE 
OTLBLK=$BF70 -FIRST BLOCK 
OTHBLK=SBF72 sMAXIMUM BLOCK WE CAN USE 
OTFLG=SBF74 - STATUS 
OTDEV=SBF76 sUNTT IT 1S -ON 


;WHERE THE DEVICE HANDLER TABLE IS SO WE CAN PATCH INTO IT: 


- DEF 


DEVTAB=SBFCO 


;A PLACE IF PAGE ZERO WE CAN USE FOR A POINTER 


- DEF 


-~ LOC 


*ENTRY:-POENTS: 

BYTELO; IMP 
JMP 
JMP 
JMP 


PNTR1=0 

HIAD, LOAD 

OPENIN -OPEN FOR INPUT 
OPENOT -OPEN FOR OUTPUT 
GETBYT INPUT A BYTE 


PUTBYT sOUTPUT A UBY TE 


ADOC 
ADOF 


AD12 
AD1L5 
AD17 
AD19 
ADIA 
ADIB 
ADIE 
AD22 
AD25 
AD28 
AD2A 
AD2D 
AD2F 
AD31 
AD3B 
AD3D 
AD45 
AD46 


AD47 
AD4A 
AD4E 
AD51 
AD54 
AD5/7 
ADS5A 
ADS5C 
AD5D 
AD5E 
AD61 
AD63 
AD66 
AD69 


AD6B 
AD/7/1 
AD77 


AD7A 
AD7D 
AD81 
AD84 
AD8A 


AD8D 
AD92 
AD9E 
ADAA 
ADAD 
ADB9Y 


4C 
4C 


AD 
C9 
FO 
38 
60 
AD 
38 
AD 
ED 
BO 
20 
BO 
AO 
AD 
Bl 
EE 
18 
60 


AD 
38 
8D 
AD 
ED 
8D 
BO 
38 
60 
AD 
DO 
AD 
CD 
90 


AD 
AD 
4C 


AD 
38 
8D 
AD 
EE 


A9 
AD 
AD 
AD 
18 
AD 


7DAF 
ED/7B 
7FAF 
7EAF 
7CAF 
8O0AF 
02 


SOAF 
08 
7FAF 
87 AF 
OF 


S6AF 
87AF 
8DAD 


84 AF 
ED/7F 
6DBF 
7FAF 
96AF 


008D 
7BAF 
6CBF 
96AF 
6D/7B 
96AF 


JMP 
JMP 
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CLOSE 
SCAN 


: CLOSE 
OPEN AN INPUT FILE BY NAME 


;BAD LG GET. A- BYTE ROUTINE: 


GETBYT: 


GETBO: 


GETB1: 


GETB2: 


LDA 
CMP# 
BEQ 
SEC 
RTS 
LDA 
SUB 
LDA 
SBC 
BGE 
JSR 
BCS 
LDY# 
DMOV 


LDAG@Y 


DINC 
CLC 
RTS 


INFLG :DO WE HAVE INPUT OPEN? 
$55 
GETB1 -IF SO, CONTINUE 

-ELSE RETURN, FAILED 
INBHI -FORM INBHI-INPNT 
INPNT -TO SEE IF POINTER 
INBHI+1 -IS STILL INSIDE THE 
INPNT+1 -INPUT BUFFER 
GETB2 ;OK IF INPNT<=INBHI 
RMORE ;ELSE READ MORE IN 
GETBO -BARF IF TROUBLE 
0 :GET THE BYTE 
INPNT,PNTR1 -MOVE POINTER TO PAGE ZERO 
PNTRI -VIA INPNT 
INPNT ;AND BUMP POINTER 


>ALL IS WELL 


;READ ANOTHER BUFFER FULL IN 


RMORE: 


RMORO: 


RMORI: 


RMOR2: 


LDA 
SUB 
STA 
LDA 
SBC 
STA 
BCS 
SEC 
RTS 
LDA 
BNE 
LDA 
CMP 
BLT 


ERO PILE 15 


MOV 
MOV 
JMP 


es 6 ie oe gee Bw: 


RMOR3: 


; COMMON 
RMOR4: 


LDA 
SUB 
STA 
MOV 
INC 
CODE 
MOV# 
DMOV 
DMOV 
LDA 
DADM 
MOV 


LIBLK FORM INSIZ:=LIBLK-FIBLK 
FIBLK TO SEE HOW MUCH OF THE FILE 
INSIZ -IS LEFT 
LIBLK+1 
FIBLK+1 
INSIZ+1 
RMOR1 -IS FILE USED UP? 

sBARF EXIT 
INSIZ+1 ;WILL IT FIT IN BUFFER? 
RMOR2 -NO, >256 BLOCKS 
INSIZ 
INBSIZ 
RMOR3 S¥ES IT. FETS 
>= BUFFER: 


INBLO+1,FADDR+1 ;SETUP WHOLE BUFFER 
INBSIZ,NOBLK ;sFULL SIZE TANSFER 


< BUFFER: 


RMOR4 ;ENTER COMMON CODE 
INBHI+1 >COMPUTE WHERE: TO PUT. IT 
INSIZ 

FADDR+1 

INSIZ,NOBLK SSLZE Ore Pies 
NOBLK s+l=NO BLKS TO XFER 
O,FADDR sMUST BE ON A PAGE 
FIBLK,BLKNO ;oETUP BLKNO 

FADDR, INPNT sRESET POINTERS 
NOBLK sADJUST NEXT BLOCK 
FIBLK 


NOBLK, NBLKS 


;GO GET IT 


ADBF 
ADC5 
ADC8 


ADC9 
ADCC 
ADCE 
ADCF 
ADDO 
ADDC 
ADE8 
ADF4 
AEOO 
AEO3 
AEO7 
AEOA 
AEOD 
AE13 
AE18 
AE1D 
AEILE 


AEIF 
AE22 
AE25 
AE2/ 
AE29 
AE2A 
AE2B 
AE2E 
AE 32 
AE35 
AE38 
AE3A 
AE3D 
AE3F 
AE41 
AE4B 
AE4E 
AE50 
AE58 
AE59 


AE5A 
AE5D 
AE61 
AE64 
AE6/ 
AE69 
AE6C 


AD 
20 
60 


AD 
DO 
38 
60 
AD 
AD 
AD 
AD 
AD 
38 
18 
8D 
AD 
A9 
A9 
18 
60 


8D 
AD 
be, 
FO 
38 
60 
AD 
38 
AD 
ED 
BO 
20 
BO 
AO 
AD 
AD 
91 
EE 
18 
60 


AD 
38 
8D 
AD 
FO 
EE 
AD 


88AF 
E2BF 


7CBF 
02 


78BF 
7ABF 
3CBF 
3ABF 
84AF 
ED86 
6901 
87AF 
7EBF 
FF 8D 
558D 


95AF 
74BF 
55 
02 


91 AF 
ED8E 
92AF 
SFAF 
05 
5AAE 
EA 
00 
SEAF 
95AF 
00 
SEAF 


SFAF 
ED94 
8DAF 
SEAF 
03 

SDAF 
89AF 


MOV 


INUNIT,UNIT 
JSR KREAD 
RTS 
-OPEN INPUT FILE: 
OPENIN: LDA INFLG 
BNE OPINIL 
SEC 
RTS 
OPIN1: DMOV INLBLK,FIBLK 
DMOV INHBLK, LIBLK 
DMOV INBUFE, INBHI 
DMOV INBUFD, INBLO 
LDA INBHI+1 
SUB INBLO+1 
INCA 
STA INBSIZ 
MOV INDEV, INUNIT 
OPIN2: MOV# SFF,INPNT+1 
MOV# $55,INFLG 
CLE 
RTS 
-OUTPUT A BYTE: 
PUTBYT: STA DATA 
LDA OTFLG 
CMP# $55 
BEQ PUTBL 
PUTBO: SEC 
RTS 
PUTB1: LDA OTBHI 
SUB OTPNT 
LDA OTBHI+1 
SBC OTPNT+1 
BGE PUTB2 
JSR WMORE 
BCS PUTBO 
PUTB2: LDY# 0 
DMOV OTPNT, PNTRI1 
LDA DATA 
STAG@Y PNTR1 
DINC OTPNT 
CLC 
RTS 


;WRITE OUT A BUFFER 


WMORE: 


WMORI1: 


LDA 
SUB 
STA 
LDA 
BEQ 
INC 
DMOV 


OTPNT+1 
OTBLO+1 
OTSIZ 

OTPNT 

WMOR1L 

OTSIZ 
FOBLK, BLKNO 
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;RETURN WITH CORRECT CARRY 


;DO WE HAVE ONE? 
-NON ZERO IF OK 
-ERROR, NO FILE TO OPEN 


SETUP FIBLK 
>AND LIBLK 
LOCAL COPY 


;COMPUTE INBSIZ 


MAKE LOCAL COPY OF UNIT 
>FLAG IT EMPTY 
:-FLAG IT OPEN 


;OAVE THE BYTE 
ou St OREN? 


SWLEL: BE Soo 2 2 <ts 


;FORM OTBHI-OTPNT 

;LO. SER: LF “THE POINTER 1s 
sO PELL “WITHIN: THE 

;OUTPUT BUFFER 

;sOK IF OTPNT<=OTBHI 

;sELSE WRITE BUF OUT 

;BARF IF TROUBLE 

sone TBR Brie 

;MOVE POINTER TO PAGE ZERO 


sVIA OTPNT 
-AND BUMP POINTER 
-ALL IS WELL 


>COMPUTE OTSIZ 
>TO SEE HOW MANY BLOCKS 
-WE NEED TO WRITE OUT 


;ADJUST FOR PARTIAL BLOCK 
;SETUP BLKNO 


AE78 
AE/B 
AE/E 
AE81 
AE83 
AE86 
AE89 
AE8C 
AE98 
AE9B 
AE9F 
AEA2 
AEA5 
AEA7/ 
AEA8 


AEAQ 


AEAF 
AEB5 
AEB8 


AEB9 
AEBC 
AEBE 
AECO 
AEC2 
AEC4 
AEC5 
AEC6 
AED2 
AED5 
AED8 
AEDB 
AEDE 
AEEO 
AEE3 
AEEF 
AEFB 
AEFE 
AFO2 
AFO5 
AF08 
AFOB 
AFOE 
AF13 
AF18 
AF19 


AFI1A 
AF1D 
AFIF 
AF21 
AF22 


94AF 
6DBF 
SFAF 
00 

6CBF 
SEAF 
S8DAF 
6D89 
8BAF 
ED89 
8CAF 
SAAF 
02 


SDAF 
76BF 
ESBF 


74BF 
3) 
02 


WMOR3: 


LDA 
STA 
STA 
LDA# 
STA 
STA 
LDA 
DADM 
LDA 
SUB 
LDA 
SBC 
BGE 
SEC 
RTS 
MOV 
MOV 
JSR 
RTS 


OTBLO+1 
FADDR+1 
OTPNT+1 
0 

FADDR 
OTPNT 
OTSIZ 
FOBLK 
LOBLK 
FOBLK 
LOBLK+1 
FOBLK+1 
WMOR3 


OTSIZ,NBLKS 
OTDEV,UNIT 
KWRITE 


FUrLN: OUTPUT FILES 


OPENOT: 


OPOTI: 


LDA 
CMP# 
BEQ 
CMP# 
BEQ 
SEC 
RTS 
DMOV 
LDA 
INCA 
STA 
LDA 
ADC# 
STA 
DMOV 
DMOV 
LDA 
SUB 
INCA 
STA 
LDA 
STA 
MOV# 
MOV# 
CLC 
RTS 


OTFLG 
og 
OPOTI1 
s55 
OPOTT 


OTLBLK, FOBLK 
OTHBLK 


LOBLK 
OTHBLK+1 

0 

LOBLK+1 
OTBUFE , OTBHI 
OTBUFD, OTBLO 
OTBHI+1 
OTBLO+1 


OTBSIZ 
OTBLO+1 
OTPNT+1 
0,OTPNT 
$55-OTFLG 


;CLOSE THE OUT FILE 


CLOSE: 


LDA 
CMP# 
BEQ 
CLEC 
RTS 


OTFLG 
= 35 BS 
CLOS1 
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AND POINTER 
*-MUST BE ON A PAGE 
sUPDATE TO NEXT OUT BLOCK 


;DOES THIS FIT IN THE EMPTY? 


sIF FOBLK <= LOBLK 
sATTEMPT TO WRITE TOO FAR 
-DOES NOT FIT 

sFITS, SO WRITE IT 


;RETURN WITH STATUS 


DO WE HAVE ONE? 

IF IT WAS NEW 

THEN FINE 

;IF IT WAS NOT CLOSED : 


-THEN FINE VY 


sELSE BAD 


SETUP FOBLK 
>AND LOBLK 


LOCAL COPY 
;IN CASE USER PROGRAM BOMBS US 
>COMPUTE OTBSIZ 


;FLAG BUFFER EMPTY 


;FLAG IT OPEN 


-WAS IT OPEN? 


;WAS OPEN, SO .GO- CLOSE: 17 
; LT WAS ALREADY CLOSED 
;50 WE JUST IGNORE 


AF23 
AF25 
AF28 
AF2B 
AF 2D 
AF30 
AF33 
AF35 
AF 38 
AF3A 
AF 3B 
AF3E 
AF41 
AF44 
AF47 
AF49 
AF4C 
AF4E 
AF51 
AF52 


AF53 
AF56 
AF58 
AF64 
AF/0 
AF7/6 
AF79 
AF/7A 


AF/B 
AF/D 
AF/7F 
AF81 
AF83 
AF85 
AF8/ 
AF88 


AF89 
AF 8B 
AF 8D 
AF8E 
AF90 
AF91 


A9 
20 
AD 
DO 
AD 
CD 
FO 
20 
90 
60 
AD 
38 
8D 
AD 
E9 
8D 
A9 
8D 
18 
60 


1A 
1FAE 
SEAF 
08 
SFAF 
94AF 
06 
SAAE 
Ol 


89AF 
E901 
72BF 
SAAF 
00 

73BF 
FF 

74BF 


DCBF 
faa 

69BF 
6EBF 
68BF 
13AE 


00 
00 
00 
00 
00 
00 


00 
00 


00 


00 


CLOS1: 


CLOS 3: 


CLOS2Z 


sTHIS ROUTINE USES THE SYSTEM RESIDENT 
sAN INPUT FILE BY NAME. 
;THE AC AND Y REGISTERS. 


LDA# 
JSR 
LDA 
BNE 
LDA 
CMP 
BEQ 
JSR 
BCC 
RTS 
LDA 
SUB# 
STA 
LDA 
SBC# 
STA 
LDA# 
STA 
CLC 
RTS 


SIA ;STASH AN EOF, IN CASE 
PUTBYT 

OTPNT ;DO WE HAVE TO WRITE ANY? 
CLOS3 ;HAS CONTENT 

OTPNT+1 

OTBLO+1 

CLOS2 ;NO CONTENT, ALL DONE 

WMORE sELSE WRITE OUT FINAL BLOCKS 
CLOS2 ;CHECK FOR ERRORS 

FOBLK ;UPDATE LAST BLOCK 


1 ;iN SYSTEM PAGE 


OTHBLK SO APEX WILL KNOW HOW 
FOBLK+1 -TO UPDATE THE DIRECTORY 
0 

OTHBLK+1 

SFF *-MARK IT CLOSED 

OTFLG 


;RETURN WITH CARRY FLAG CLEAR 


"FSCAN" TO OPEN 
THE NAME IS PASSED BY ADDRESS IN 
THE FILE WILL BE LOOKED FOR 


;ON THE UNIT IN THE SYSTEM AREA PARAMETER ‘UNIT’. 
sNOTE: THAT THE FILE*OPENED IN THES WAY LEAVES THE INPUT 


;FILE~ BLOCK IN THE SYSTEM AREA UNAFFECTED. 
;CALL IS MADE TO 


THUS IF ANOTHER 


"OPENIN” IT WILL RE-OPEN THE ORIGINAL FILE. 


;REFER TO THE COMMENTS ON FSCAN FOR FURTHER DETAILS. 


SCAN: 


BADSCN: 


;THE RAM LOCS THAT THESE ROUTINES NEED 


JSR 
BCS 
DMOV 
DMOV 
MOV 
JMP 
SEC 
RTS 


FIBLCK* 
tS- BK 
ENS 7 * 
INPNT: 
INBHI: 
INBLO: 
INBS IZ: 
INUNIT: 


FOBLK: 
LOBLK: 
OTSIZ: 
OTENT : 
OTBSIZ: 
OTBHI: 


-WORD 
-WORD 
-WORD 
-WORD 
» WORD 
-WORD 
~-BYTE 
~BYTE 


» WORD 
~WORD 
~-BYTE 
-WORD 
~-BYTE 
- WORD 


FSCAN 

BADSCN 
BLKNO, FIBLK 
ENDBLK, LIBLK 
UNIT, INUNIT 
OPIN2 


;FILE NOT FOUND 

;MOVE STARTING BLOCK 
;AND ENDING BLOCK 
;ALSO SAVE NEW UNIT 
;GO JOIN EXISTING CODE 


sNEXT BLOCK OF INPUT FILE 
;LAST- BLOCK OF THE INPUT FILE 
;REMAINING INPUT FILE SIZE-1 
; INPUT BUFFER POINTER 

;LOCAL COPY START OF BUF 
;LOCAL COPY, END OF BUF 

; INPUT BUFFER SIZE IN PAGES 
;LOCAL COPY OF INPUT UNIT 


Ro ame he Se | RD 


;sNEXT BLOCK OF OUT FILE 
sMAX+1 BLOCK OF OUT FILE 
;SIZE FOR THIS WRITE 

OUTPUT BUFFER POINTER 
sOUTPUT BUFFER SIZE IN PAGES 
sLOCAL COPY, 


iy AS BO A ed Ba as 


START OF BUF 


AF93 


AF95 
AF 96 


BFC6 


00 OO 


00 
00 


OO AD 
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OTBLO: .WORD 0 sLOCAL COPY, END OF BUF 
DATA: ~-BYTE 0 >; TEMPORARY TO SAVE DATA BYTE 
NOBLK: .BYTE 0 | >; LEMP=NO OF BLOCKS IN XFER 


;PS: THE LOCAL COPY STUFF IS TO SAVE US FROM LOADERS AND LINKED 
;FILE READERS WHICH COULD CHANGE THINGS IN THE SYSTEM PAGE 
;ON THE FLY. 


sNOW HOOK THE HANDLER INTO THE DEVICE HANDLER TABLE: 
« LOC DEVTAB+DEVNO+DEVNO 
» WORD BYTEIO 


® = 
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HEX ROMOD. ***  (V3.0=DS) <OCT=79 


- PAGE 
- END 
‘ BFC8 BADSCN AF/9 BLKNO BF69 
BYTEIO ADOO CLOS1 AF23 CLOS2 AF 3B 
CLOS3 AF35 CLOSE AFI1A DATA AF95 
DEVNO 0003 DEVTAB- BFCO ENDBLK'  BF6E 
FADDR- BF6C FIBLK AF/B FOBLK AF89 
FSCAN BFDC GETBO AD19 GETBIL ADIB 
GETB2 AD2F CETBYT: -ADi2 HIAD ADOO 
INSHL --AFS3 INBLO AF85 INBSLZ APS? 
INBUFD BF3A INBUFE  BF3C INDEV BF/E 
INFLG BF/C INHBLK BF/A INLBLK' BF/8 
INPNT AF81 INSIZ AF/7F INUNIT AF88 
KREAD- BFE2 KWRITE BFE5 LIBLK AF/D 
LOAD 1D00 LOBLK AF 8B NBLKS BF 6B 
NOBLK AF96 OPENIN ADC9 OPENOT AEB9 
OPIN1 ADDO OPIN2 AE13 OPOTI1 AEC6 
OTBHI AF9I1 OTBLO AF93 OTBSiIZ =AFIO 
OTBUFD BF36 OTBUFE BF38 OTDEV BF 7/6 
OTFLG BF/4 OTHBLK —BF/2 OTLBLK -BE70 
OTPNT AF8E OTSIZ AF 8D PNTR1 0000 
PUTBO. <AER29 PUTB1 AE2B PUTB2 AE3F 
PUTBYT AE IP RMORO AD5C RMORI1 AD5E 
RMOR2 ADO6B RMOR3 AD7A RMOR4 AD8D 
RMORE AD4/ SCAN AF53 UNIT BF68 
WMOR1 AE6C WMOR3 AEA9 WMORE AE5A 


NO ERRORS DETECTED 


